MSHFlexGrid 鼠标双击获取行数据

Private Sub gduser_dblclick()
'数据列表双击事件
    Dim introw As Integer
    introw = gdUser.Row '得到当前行
    With gdUser
        txtUser.Text = .TextMatrix(.Row, 2)
        txtPass.Text = .TextMatrix(.Row, 3)
    End With
End Sub

'MSHFlexGrid 控件名称为：gdUser