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 [Seleccionar]
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