Dim P As POINTAPI
 
GetCursorPos P
 
P.X = P.X * Screen.TwipsPerPixelX
P.Y = P.Y * Screen.TwipsPerPixelY
 
mouse_event MOUSEEVENTF_ABSOLUTE + MOUSEEVENTF_MOVE, P.X, P.Y - 50, 0, 0

  Private Declare Sub mouse_event Lib "user32" _
 (ByVal dwFlags As Long, ByVal dx As Long, _
 ByVal dy As Long, ByVal cButtons As Long, _
 ByVal dwExtraInfo As Long)
 
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function ScreenToClient Lib "user32" ( _
  ByVal hwnd As Long, _
  lpPoint As POINTAPI) As Long
 
Private Type POINTAPI 'Variablentyp deklarieren
   x As Long
   y As Long
End Type
' Dim CursorPos As POINTAPI
 
Private Const MOUSEEVENTF_ABSOLUTE = &H8000
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
Private Const MOUSEEVENTF_MIDDLEUP = &H40
Private Const MOUSEEVENTF_MOVE = &H1
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10