mgdavo
05 de Marzo del 2004

Me gustaria saber como hacer ke un comandButton o barr... Valla pulsando una tecla.

Gracias¡¡¡ De atemano

marcelo
05 de Marzo del 2004

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const VK_NUMLOCK = &H90
Private Const KEYEVENTF_KEYUP = &H2
Private Sub Command1_Click()
keybd_event VK_NUMLOCK, 0, 0, 0
keybd_event VK_NUMLOCK, 0, KEYEVENTF_KEYUP, 0
End Sub
' Lo que hace es, cada vez que haces click en command1 se preciona la tecla "NumLock" del teclado.