Private ubd As Boolean
    Private lbd As Boolean
 
    Protected Overrides Sub OnKeyDown(ByVal e As _
      System.Windows.Forms.KeyEventArgs)
        If e.KeyCode = Keys.U Then
            ubd = True
        End If
        If e.KeyCode = Keys.L Then
            lbd = True
        End If
    End Sub
 
    Protected Overrides Sub OnKeyUp(ByVal e As _
      System.Windows.Forms.KeyEventArgs)
        If e.KeyCode = Keys.U Then
            ubd = False
        End If
        If e.KeyCode = Keys.L Then
            lbd = False
        End If
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
 
        If ubd Then
            Button1.Top = Button1.Top - 2
        End If
        If lbd Then
            Button1.Left = Button1.Left - 2
        End If
        Debug.WriteLine(Button1.Location.ToString())
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        KeyPreview = True
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist