Visual Basic Bitte Helfen

Public Class Anti_Afk_Bot
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkeys As Long) As Integer
    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        Dim hotkey1 As Boolean
        Dim hotkey2 As Boolean

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

        If hotkey1 = True Then
            Timer2.Start()
        End If
        If hotkey2 = True Then
            Timer2.Stop()
        End If
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        My.Computer.Keyboard.SendKeys("{w}")

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer2.Start()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer2.Stop()
    End Sub