Private Sub Form_KeyPress(ByVal Keyascii As Integer, ByVal e As _
      Windows.forms.KeyPressEventArgs)
        '*** Auf das drücken der Hardware-Tasten des Pocket-PC's reagieren ***
 
        Select Case Keyascii
            Case PPcTaste1 'erste Taste von links gesehen
                MsgBox("Taste 1")
            Case PPcTaste2 'zweite Taste von links gesehen
                MsgBox("Taste 2")
            Case PPcTaste3 'dritte Taste von links gesehen
                MsgBox("Taste 3")
            Case PPcTaste4 'vierte Taste von links gesehen
                MsgBox("Taste 4")
            Case PPcTaste5 'Taste links oben
                MsgBox("Taste 5")
        End Select
    End Sub