VB 鼠标右键选择list控件的内容

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