sirbecode

Public Class Form1
    Dim X, Y As Double
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = "OMG CODEZ!!11"
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            TextBox1.Text = "checked"
        Else : TextBox1.Text = "Unchecked"
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        X = ReadFloat(&HAFA320)
        Y = ReadFloat(&HAFA324)
        If GetAsyncKeyState(Keys.Left) < 0 Then
            WriteFloat(&HAFA320, X - 100)
        End If
        If GetAsyncKeyState(Keys.Right) < 0 Then
            WriteFloat(&HAFA320, X + 100)
        End If
        If GetAsyncKeyState(Keys.Up) < 0 Then
            WriteFloat(&HAFA324, Y - 100)
        End If
        If GetAsyncKeyState(Keys.Down) < 0 Then
            WriteFloat(&HAFA324, Y + 100)
        End If
    End Sub
End Class