Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As _
  POINTAPI) As Long
Private Type POINTAPI
  x As Long
  y As Long
End Type
 
 
Private Sub Form_Click()
Dim c As POINTAPI
GetCursorPos c
Me.Move c.x * Screen.TwipsPerPixelX, c.y * Screen.TwipsPerPixelY
End Sub