Äã ¿É ÒÔ Àû ÓÃ LB_ITEMFROMPOINTÅÐ ¶Ï Êó ±ê µÄ Î» ÖÃ ´¦ ÓÚ µÚ ¼¸ Ïî £¬ ÏÂ Ãæ ÊÇ Ò» ¸ö Àý ×Ó £º 
    Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
     Debug.Print X / Screen.TwipsPerPixelX, Y / Screen.TwipsPerPixelY 
     List1.ListIndex = SendMessage(List1.hwnd, LB_ITEMFROMPOINT, 0, _ 
     ByVal CLng(Y / Screen.TwipsPerPixelY * 65536 + X / Screen.TwipsPerPixelX)) 
    End Sub 
<END>
