' 在表單拉出1個Timer1 
' 把Timer1的Enabled用成False 
Option Explicit 
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer 
Private Sub Form_Load() 
App.TaskVisible = False 
Timer1.Interval = 100 
Timer1.Enabled = True 
End Sub 
Private Sub Timer1_Timer() 
If GetKeyState(vbKeyF2) < 0 Then Me.Hide 
If GetKeyState(vbKeyF3) < 0 Then Me.Show 
End Sub