Public Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINTAPI) As _
  Long
 
Private Type POINTAPI
  X As Long
  Y As Long
End Type
 
Public CP As POINTAPI
 
Public Declare Function ScreenToClient Lib "user32.dll" (ByVal hwnd As Long, _
lpPoint As POINTAPI) As Long

 
GetCursorPos CP
ScreenToClient Me.hwnd, CP
imgPic(no).Left = CP.X * Screen.TwipsPerPixelX
imgPic(no).Top = CP.Y * Screen.TwipsPerPixelY