Hola, el motivo de este post es que tengo el siguente problema:

Estoy batallando con la función WriteALong y GetKeyPress, lo que estoy intentando hacer es que si yo presiono F1 (ejemplo) me haga el evento de WriteALong hasta que la presione de nuevo, es decir, si presiono F1 activará el evento hasta que vuelva a presionar la misma tecla.

Ya estuve intentando metiendo el GetKeyPress en el checkbutton que tengo para activar los eventos y no me resulto, tambien intente meterlo en el timer() y ni aún así, a continuación les dejo un fragmento del código:

Código:

Private Sub Tammo_Timer()
    If GetKeyPress(vbKeyC) Then
        Tammo.Enabled = True
        Tammo.Interval = 1
    End If
    Call WriteALong("PROGRAMA", DIRECCION, VALOR)
End Sub

Espero alguna solución, gracias.

Facil... con un condicional, osea un (IF)
.. lo unico que deberias crear otro timer... y en lenguaje humano diriamos "si (if) al pretar F1 el timer2 esta detenido, entonces (then) lo detenemos, sino (else) lo encendemos..."

Private Sub Tammo_Timer()

If GetKeyPress(vbKeyF1) Then

If Timer2.Enabled = False Then
Timer2.Enabled = True
Else
Timer2.Enabled = False
End If
End If
End Sub

Private Sub Timer2_Timer()
Call WriteALong("PROGRAMA", DIRECCION, VALOR)
End Sub

*Recuerda crear el timer2 y ponerlo en "false", con el intervalo que prefieras.