in bas
'MOUSE CLICK
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public Const VK_LBUTTON = &H1
Public Const VK_RBUTTON = &H2
but the code return always left! in:
note:Private Sub MSFlexGrid1_Click()
If GetAsyncKeyState(VK_LBUTTON) Then
With Me.MSFlexGrid1
Me.LCOLONNA.Caption = .Col
Me.LRIGA.Caption = .Row
End With
End If
End Sub
in need in msflexgrid click event not in mouse_down event