Public Class Form1
 
    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As _
      KeyEventArgs) Handles TextBox1.KeyDown
 
        If Not e.Control And e.Alt Then  ' <<< Alt-Taste gedrückt
            MsgBox("Aufruf MsgBox mit OK-Button, ohne Icon und ohne Sound")
        Else
            e.SuppressKeyPress = True  ' <<< Weiterleitung anderer Eingaben an 
            ' TextBox unterbinden
        End If
 
    End Sub
 
 
    Private Sub TextBox2_KeyDown(ByVal sender As System.Object, e As _
      KeyEventArgs) Handles TextBox2.KeyDown
 
        If Not e.Control And e.Alt And e.KeyCode = Keys.K Then  ' <<< Alt-Taste 
        ' und K-Taste gedrückt
            MsgBox("Aufruf MsgBox mit OK-Button, ohne Icon und ohne Sound")
        Else
            e.SuppressKeyPress = True  ' <<< Weiterleitung anderer Eingaben an 
            ' TextBox unterbinden
        End If
 
    End Sub
 
 
    Private Sub TextBox3_KeyDown(ByVal sender As System.Object, e As _
      KeyEventArgs) Handles TextBox3.KeyDown
 
        If e.Control And e.Alt And e.KeyCode = Keys.K Then  ' <<< AltGr-Taste 
        ' und K-Taste gedrückt
            MsgBox("Aufruf MsgBox mit OK-Button, ohne Icon und ohne Sound")
        Else
            e.SuppressKeyPress = True  ' <<< Weiterleitung anderer Eingaben an 
            ' TextBox unterbinden
        End If
 
    End Sub
 
End Class