Quick AFK Bot With Keys

Public Class Form1


    Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Integer) As Short ' Declare hotkeys
    Private Property result() As Short
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = False
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
            Interaction.AppActivate("crossfire")
            My.Computer.Keyboard.SendKeys("W")
            My.Computer.Keyboard.SendKeys("A")
            My.Computer.Keyboard.SendKeys("S")
            My.Computer.Keyboard.SendKeys("D")
        Catch
        End Try
    End Sub


    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        For i = 6 To 255


            result = 0
            result = GetAsyncKeyState(i)


            If GetAsyncKeyState(Keys.F2) Then
                Timer1.Enabled = True
            End If

            If GetAsyncKeyState(Keys.F3) Then
                Timer1.Enabled = False
            End If
            If GetAsyncKeyState(Keys.Delete) Then
                Me.Close()
                Application.Exit()
            End If
        Next i
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
        Application.Exit()
    End Sub
End Class