Someone

 Public Class Form1

	Dim X, Y As Double

    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