Private cntr As Boolean
Public Sub PictureBox1_DblClick()
' Se è stato premuto il tasto "Control",
' ed è stato effettuato il doppio-clic sulla "PictureBox",
' allora fa quello che deve fare:
If cntr Then Print "alibaba"
End
Public Sub Form_KeyPress()
If Key.Control Then cntr = True
End
Public Sub Form_KeyRelease()
If Key.Control Then cntr = False
End