Visual Basic - ayudaa ejecutar pulsando un boton

como puedo ejecutar pulsando un boton definido>ej:F1

EJ:
al pulsar F1 ejecuta >command1.value=true

Con un timer

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

Private Sub Timer1_Timer()
Dim x As Integer, i As Integer
i = 112
x = GetAsyncKeyState(i)
If x = -32767 Then
MsgBox ("Presionó F1")
End If
End Sub

Si necesitas varias teclas no pones el i fijo, sinó en un ciclo

La ventaja de este método es que sirve así no este el formulario activo