[deleted]

[pflo]

[deleted]

 

[DrSoong]

Du könntest es mit der GetAsyncKeyState-API versuchen, da kannst du Maus und Tastatur überwachen. Könnte z.B: so aussehen:

'In den Deklarationsteil
Private Declare Function GetAsyncKeyState Lib "user32" _
        (ByVal vKey As Long) As Integer

'Das hier ist die Click-Prozedur deines Picture-Elemets
Private Sub Picture1_Click()
 If GetAsyncKeyState(vbKeyShift) = -32767 Then
  MsgBox "Easter-Egg!"
 End If
End Sub

Mit der API lassen sich alle Tasten überwachen, du kannst z.B. das ganze auch mit der rechten Maustaste realisieren:

'Das hier ist die Click-Prozedur deines Picture-Elemets
Private Sub Picture1_Click()
 If GetAsyncKeyState(vbKeyShift) = -32767 Or GetAsyncKeyState(vbKeyRButton) = -32767 Then
  MsgBox "Easter-Egg!"
 End If
End Sub

Der Doc!