为什么调用ScreenToClient api无效?
Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (ByRef lpPoint As POINTAPI) As Long Declare Function ScreenToClient Lib "user32 " Alias "ScreenToClient" (ByRef hwnd As Integer, ByRef lpPoint As POINTAPI) As LongDim pi As POINTAPI = New POINTAPI GetCursorPos(pi)Dim hWnd As Integer = ListView1.Handle.ToInt32 ScreenToClient(hWnd, pi)