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 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

Dim P As POINTAPI
 
GetCursorPos P
 
Mausklick 0, P.x, P.y - 50
 
Public Sub Mausklick(Optional Button As _
  MouseButtonConstants = vbLeftButton, _
  Optional XPos As Long = -1, _
  Optional YPos As Long = -1)
 
  'Mauszeiger positionieren
  If XPos <> -1 Or YPos <> -1 Then
    mouse_event MOUSEEVENTF_ABSOLUTE + MOUSEEVENTF_MOVE, _
    XPos, YPos, 0, 0
  End If
End Sub