让你的QTP在运行过程中“收入自如”

　　我们在运行QTP批处理时，不需要把QTP的主界面显示出来，以免它阻碍了你的操作视线，那下面介绍二个函数方便你的QTP在运行过程中“收入自如”：
　　'让QTP运行时保持小化
Public Sub QTP_Small()
Dim objQTPWin
Set objQTPWin = GetObject("" ， "QuickTest.Application")
objQTPWin.WindowState = "Minimized"
Set objQTPWin = Nothing
End Sub
　　'恢复QTP窗口
Public Sub QTP_Big()
Dim objQTPWin
Set objQTPWin = GetObject("" ， "QuickTest.Application")
objQTPWin.WindowState = "Restored"
Set objQTPWin = Nothing
End Sub