Option Strict On
Option Explicit On
 
Public Class Form1
 
    Private Sub ProcessMyKeys(ByVal keyData As Keys)
 
        Select Case keyData
 
            Case Keys.Space
                Debug.Print("Mach was wenn die Space-Taste gedrückt wurde.")
 
        End Select
 
    End Sub
 
    Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal _
      keyData As Keys) As Boolean
 
        Select Case keyData
 
            ' Tasten auf die reagieren werden soll
            Case Keys.Space ' hier nur die Space-Taste
 
                ' nur diese Tasten behandeln
                ProcessMyKeys(keyData)
 
                ' Weiterleitung der Tastatur-Message unterbinden
                Return True
 
        End Select
 
        ' für alle anderen Tasten die Tastatur-Messages weiterleiten 
        Return MyBase.ProcessCmdKey(msg, keyData)
 
    End Function
 
End Class

Mit freundlichen Grüßen
-Franky-