Private
Declare
Function
SendMessage Lib
"
user32
"
Alias
"
SendMessageA
"
(ByVal hwnd
As
Long
, ByVal wMsg
As
Long
, ByVal wParam
As
Long
, lParam
As
Any)
As
Long
Private Sub List1_MouseUp(Button As Integer , Shift As Integer , X As Single , Y As Single )
Dim lXPoint As Long , lYPoint As Long , lIndex As Long
If Button = 2 Then
lXPoint = CLng (X / Screen.TwipsPerPixelX)
lYPoint = CLng (Y / Screen.TwipsPerPixelY)
lIndex = SendMessage(List1.hwnd, & H1A9, 0 , ByVal ((lYPoint * 65536 ) + lXPoint))
If (lIndex >= 0 ) And (lIndex <= List1.ListCount) Then
List1.Selected(lIndex) = True
Print List1.Text
End If
End If
End Sub
Private Sub List1_MouseUp(Button As Integer , Shift As Integer , X As Single , Y As Single )
Dim lXPoint As Long , lYPoint As Long , lIndex As Long
If Button = 2 Then
lXPoint = CLng (X / Screen.TwipsPerPixelX)
lYPoint = CLng (Y / Screen.TwipsPerPixelY)
lIndex = SendMessage(List1.hwnd, & H1A9, 0 , ByVal ((lYPoint * 65536 ) + lXPoint))
If (lIndex >= 0 ) And (lIndex <= List1.ListCount) Then
List1.Selected(lIndex) = True
Print List1.Text
End If
End If
End Sub