Private Sub Form1_MouseClick(ByVal sender As System.Object, ByVal e As _
     System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseClick
      Select Case True
         Case My.Computer.Keyboard.AltKeyDown
            Label1.Text = "Alt gedrückt"
         Case My.Computer.Keyboard.CtrlKeyDown
            Label1.Text = "CTRL gedrückt"
         Case Else
            Label1.Text = "Nur Maustaste"
      End Select
   End Sub

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control