Public Class Form1
    Dim taste As Int32
 
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.Modifiers = Keys.Alt Then
            taste = 18
        ElseIf e.Modifiers = Keys.Control Then
            taste = 17
        End If
    End Sub
 
    Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
        If e.Modifiers = Keys.Alt OrElse e.Modifiers = Keys.Control Then
            taste = 0
        End If
    End Sub
 
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        Select Case taste
            Case 0
                Me.Text = "Nur Maustaste"
            Case 17
                Me.Text = "+ Stringtaste"
            Case 18
                Me.Text = "+ Alttaste"
        End Select
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.KeyPreview = True
    End Sub
End Class