Private Sub TextBox2_KeyPress(ByVal sender As System.Object, e As _
      System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
 
        If My.Computer.Keyboard.AltKeyDown Then
            MsgBox("Aufruf MsgBox mit OK-Button, ohne Icon und ohne Sound")
        Else
            e.Handled = True
        End If
 
    End Sub