[VB6] Intercettare la pressione di un tasto

[ranza!!!123]

devo far si che la mia applicazione quando è ridotta a icona possa essere richiamata a tutto schermo alla pressione di un tasto...ad esempio la "q".

Codice:

Private Sub Form_KeyPress(KeyAscii As Integer) 

If KeyAscii = 113 Then 

Me.WindowState = 2 
End If 

End Sub

se faccio così però non funziona...va solo se la form è già in primo piano.
come faccio?

[MItaly]

Usa la API GetAsyncKeyState.

[ranza!!!123]

perfetto grazie 1000!!