' Benötigte API-Deklaration
Private Declare Function GetCursorPos Lib "user32" ( _
  lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
  x As Long
  y As Long
End Type

Private Declare Function ScreenToClient Lib "user32" ( _
  ByVal hwnd As Long, _
  lpPoint As POINTAPI) As Long

Dim p As POINTAPI
GetCursorPos p
 
ScreenToClient Me.hwnd, p
 
Picture1.Move Me.ScaleX(p.x, vbPixels, Me.ScaleMode), _
  Me.ScaleY(p.y, vbPixels, Me.ScaleMode)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de