Minimize the main QTP window.

' =============================================================
' function: MinimizeQTP
' desc :    Minimize QTP window
' params :  None
' returns : void
' =============================================================
Function MinimizeQTP()

dim objQTP

' create a qtp object
Set objQTP = getObject("","QuickTest.Application")

' set the window state to minimized
objQTP.WindowState = "Minimized"

' destroy the object
Set objQTP = Nothing

End Function 'MinimizeQTP