tecla F9

Private Const VK_F9 As Long = &H78
Private Const KEYEVENTF_KEYUP = &H2
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Form_Load()
keybd_event VK_F9, 0, 0, 0 ' press F9
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
keybd_event VK_F9, 0, KEYEVENTF_KEYUP, 0 ' release F9
DoEvents
End Sub


"Goku" escribió en el mensaje
news:058f01c34683$2e99d740$

ok, quiero saver cuales son los codugo para un programas
que estoy asiendo,, el programa consites en tener la
tecla F9 oprimida si tener que yo oprimela con el dedo
quiero saver cuales son los codigos para
pantener oprimida la tecla f9 gracias..

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.493 / Virus Database: 292 - Release Date: 25/06/2003