[RESOLVED] How do I implement use of Key + Click?

[iPrank]

(If you don't want to use API) Use the MouseUp event instead of Click event.

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Dim CtrlDown As Integer
   
   CtrlDown = Shift And 7
   
   If CtrlDown = vbCtrlMask Then 'control key pressed
        MsgBox "Show HIDDEN form"
   Else
        MsgBox "Show regular form"
   End If
   
End Sub

Reference:
http://msdn2.microsoft.com/en-us/lib...30(VS.60).aspx
http://msdn2.microsoft.com/en-us/lib...14(VS.60).aspx