Les dejo el codigo que vi yo
Código: Seleccionar todo
Sub text1_keydown(keycode As Integer, shift As Integer)
If keycode = vbKey1 Then
SendKeys "F1"
End If
End Sub
Código: Seleccionar todo
Sub text1_keydown(keycode As Integer, shift As Integer)
If keycode = vbKey1 Then
SendKeys "F1"
End If
End Sub