Was stimmt nicht

Function SetCursorPos Lib "user32" (ByVal _
X As Long, ByVal Y As Long) As Long
Private Declare 

Sub mouse_event Lib "user32.dll" (ByVal _
dwFlags As Long, _
ByVal dx As Long, ByVal dy As Long, _
ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2 'Die linke Maustaste wird gedrückt
Private Const MOUSEEVENTF_LEFTUP = &H4 'Die linke Maustaste wird losgelassen
Private Const MOUSEEVENTF_RIGHTDOWN = &H8 'Die rechte Maustaste wird gedrückt
Private Const MOUSEEVENTF_RIGHTUP = &H10 'Die linke Maustaste wird losgelassen


Sub xy_maus()
Dim xPos As Long
Dim yPos As Long
xPos = 34: yPos = 630
' yPos = 630
SetCursorPos xPos, yPos 'Cursor an angegebener Stelle platzieren
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0     'Maustaste eindrücken
mouse_event MOUSEEVENT_LEFTUP, 0, 0, 0, 0          'Maustaste loslassen
End Sub


Was ist Falsch?

Grüße

Rolf