【QTP】最小化QTP运行的方法

一个小玩意，最小化QTP运行的方法，

上脚本：

Call Small()

'===============================
'作用：最小化QTP运行
'===============================
Public Sub QTP_Small()
	Dim objQTPWin
	Set objQTPWin = GetObject("" , "QuickTest.Application")
	objQTPWin.WindowState = "Minimized"
	Set objQTPWin = Nothing
End Sub

我用这玩意可能是因为有点强迫症吧，比如开着个非全屏的软件，看到周围部分不是桌面而是QTP在后面就会非常不爽~