F2 ile program gizlemek

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF2) = -32767 Then
Shell "explorer http://google.com.tr"
ElseIf GetAsyncKeyState(vbKeyF2) = -32767 Then
Shell "explorer http://turkhackteam.org"
End If
End Sub