[VB6] Tasto ESC e tasto INVIO

[alesssia]

E' possibile associare al tasto ESC e al tasto INVIA due azioni?

Io ho provato con:

Private Sub Form_KeyPress(KeyAscii As Integer)
  
  'Abilita la pressione del tasto ESC per annullare l'inserimento
  If KeyAscii = 27 Then Unload Me
  
  'Abilita la pressione del tasto INVIO per confermare l'inserimento
  If KeyAscii = 13 Then cmdConferma_Click

End Sub

peccato che se il focus non si trova sul form non funzioni...
Qualcuno ha qualche idea?

[Mabi]

Usa la GetAsyncKeyState e un timer:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 50
End Sub

Private Sub Timer1_Timer()
Const SndKeyEscape = 100
Const SndKeyReturn = 50
Dim Cont1 As Byte

If GetAsyncKeyState(vbKeyEscape) < 0 Then
  For Cont1 = 1 To SndKeyEscape
    Beep
  Next Cont1
ElseIf GetAsyncKeyState(vbKeyReturn) < 0 Then
  For Cont1 = 1 To SndKeyReturn
    Beep
  Next Cont1
End If
End Sub

[alesssia]

Funziona!
Grazie mille!

[Mabi]

Prego