Hotkeys en VB6

[kh0d3x]

Hola, el motivo de este post es porque tengo un problema que no logro resolver despúes de más de 3 horas de intentarlo.

El problema reside en que estoy intentando hacer una aplicación "x" en vb6 y la funcionalidad en sí es que al momento de presionar F1 (por ejemplo) no me hace lo que le indico, o mejor dicho, lo hace pero no se queda activado lo que le indico.

En sí lo que estoy intentando hacer es mediante un programa externo, al momento de presionar F1 se le inyectará en la memoria del programa en "x" dirección con "y" valor, pero tengo que estar presionando F1 cada rato.

Ejemplo:

Valor original: 10
El valor bajaría a 5 por decirlo de alguna manera y si presiono F1 me cambia de nuevo a 10 pero ese 10 no se queda estático.

Ya se como inyectar en la memoria y algunas cosas básicas del tema, pero no logro hacer que esa calla WriteALong(Programa, Direccion, Valor) se quede activada mientras no vuelta a presionar F1, lo que quiero en sí es que al momento de presionar F1 se quede estático el valor que le indicaré con WriteALong y se desactive al momento de presionar la tecla de nuevo.

Intente con If GetKeyPress y tambien con esto:

Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer

Y no lo logro, no ocupo que me hagan un código ya que así no aprendere, solo busco que alguien me oriente un poco.

Saludos y gracias por tomarse el tiempo de leer.