Option Explicit
 
'Konstante(Shift)  Wert     Beschreibung
'
'  vbShiftMask      1       UMSCHALT-TASTE gedrückt
'  vbCtrlMask       2       STRG-TASTE gedrückt
'  vbAltMask        4       ALT-TASTE gedrückt
 
 
Private Sub FG1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
 
  If Shift = 2 Then
    ' MsgBox anzeigen
    MsgBox "Es wurde die Maustaste zusammen mit Taste " & Shift & "  gedrückt."
  End If
End Sub