Postada em 19/9/2000 por Darlan Oliveira
darlan@atlas.ucpel.tche.br
Coloque no módulo .BAS -------------------------------------------------------------- Declare Function GetAsyncKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer _______________________________________________________________________
coloque no activate do form -------------------------------------------------------------- Do While True DoEvents
If GetAsyncKeyState(vbKeyEscape) < 0 Then 'faça algo If GetAsyncKeyState(vbKeyF2) < 0 Then 'faça algo If GetAsyncKeyState(vbKeyF8) < 0 Then 'faça algo Loop
