Public Class Form1
    Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As _
      Integer
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles Timer1.Tick
        If GetAsyncKeyState(Keys.Left) Then Button1.Left -= 2
        If GetAsyncKeyState(Keys.Up) Then Button1.Top -= 2
        If GetAsyncKeyState(Keys.Right) Then Button1.Left += 2
        If GetAsyncKeyState(Keys.Down) Then Button1.Top += 2
        ' und weitrere Tasten......
    End Sub
End Class