Autor
Buenas noticias ya pudee sii 
andube buscando y encontre como usar el asynckeystate lo unico que ise fue esto
NECESITAS
1 TIMER
2 TEXTBOX
para ocultarlo precionas f1
para re aparecerlo precionas f2
si quieres cambiar la tecla solo sustitulle (vbKeyf1 o f2) por otra tecla ejemplo (vbKeyf6)
gracias a todos por ayudarme
andube buscando y encontre como usar el asynckeystate lo unico que ise fue esto
NECESITAS
1 TIMER
2 TEXTBOX
Código:
Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Private Sub Form_Load()
Timer1.Interval = "100"
End Sub
Private Sub Timer1_Timer()
If GetKeyPress(vbKeyF1) Then
Visible = False
End If
If GetKeyPress(vbKeyF2) Then
Visible = True
End If
End Sub
para ocultarlo precionas f1
para re aparecerlo precionas f2
si quieres cambiar la tecla solo sustitulle (vbKeyf1 o f2) por otra tecla ejemplo (vbKeyf6)
gracias a todos por ayudarme
mejor usar la apis RegistrerHotKey y UnRegistrerHotKey, ya que con esa no necesitas Timers...
saludos.
En línea
