codigo para congelar msn

[seba123neo]

Buenas noticias ya pudee sii 
andube buscando y encontre como usar el asynckeystate lo unico que ise fue esto

NECESITAS
1 TIMER
2 TEXTBOX

Código [Seleccionar] Expandir

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.