generare evento con doppio click e tasto premuto

[akrobaticone]

Su una picture box  vorrei generare un evento solo se viene effettuato un doppio click e contemporaneamente è premuto il tasto control
non sono in preda a fumi strani, solo che devo attivare una certa funzione e questa deve essere disponibile solo a chi ne conosce gli effetti e non a tutti gli utenti
come posso fare ?   

[vuott]

La prima cosa che mi viene in mente, così... di getto, è questa:  

Codice: gambas [Seleziona]

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

[akrobaticone]

può essere una idea
mi sa che faccio così
Grazie