Public Sub Form1_KeyPress(............) handles me.KeyPress
    Taste = e.KeyChar
    Select Case Taste
        Case "a"
          SchlaegerLinks.Top +=1
        Case "q"
          SchlaegerLinks.Top -=1
            .
            .
            .
    End Select
 End Sub