Vb Mausbewegen Problem "Maus will nicht dahin wo sie soll"

[Algaten™]

Hi wenn ich die Coordinaten speicher und die dann benutze dann klappt da was nicht... die geht ncihtd ahin wo sie hin soll hier der code vll findet ihr ja den fehler.. ich meine es liegt an den

Klicky
KlickX
MouseX
MouseY

Das ich da irgendwas falsch speichere... hab schon jezt ne halbe stunden probiert naja viel glück..

Public Class Form1
    Dim MouseY As String
    Dim MouseX As String
    Dim klicks As String

    Dim klickx As String
    Dim klicky As String

    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkeys As Long) As Integer
    Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
        Timer2.Start()

        klickx = 0
        klicky = 0
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick


        MouseX = MousePosition.X

        MouseY = MousePosition.Y

        Label1.Text = "Derzeitige Mausposition: " + MouseY + " : " + MouseX


    End Sub


    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim hotkey1 As Boolean
        Dim hotkey2 As Boolean
        Dim hotkey3 As Boolean
        'Hotkey1 = Start
        'Hotkey2 = Stop
        'Hotkey3 = Save Koordinaten

        hotkey1 = GetAsyncKeyState(Keys.F11)
        hotkey2 = GetAsyncKeyState(Keys.F12)
        hotkey3 = GetAsyncKeyState(Keys.F10)

        If hotkey1 = True Then
            'Timer3 ist der der klickt...
            Timer3.Interval = Val(TextBox3.Text) * Val("1000")
            Timer3.Start()
            klicks = TextBox2.Text
        End If

        If hotkey2 = True Then
            Timer3.Stop()
        End If

        If hotkey3 = True Then
            TextBox1.Text = MouseY + " , " + MouseX
            klickx = MouseX
            klicky = MouseY
        End If


    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        If klicks > 0 Then
            Call SetCursorPos(klicky, klickx)
            mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
            mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
            klicks = Val(klicks) - Val("1")
            TextBox2.Text = klicks

        Else
            Timer3.Stop()
        End If

    End Sub

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


   
End Class

EDIT:

Habs gefunden
Hiermitklappte es

 Windows.Forms.Cursor.Position = New Point(klickx, klicky)

anstatt mit

     Call SetCursorPos(klicky, klickx)