Minimize the QuickTest Pro window

Here is a quick way to Minimize the QuickTest Pro window when running tests

' Minimize the QuickTest Pro window
Public Function MinimizeQTPWindow ()
Set qtApp = getObject("","QuickTest.Application")
qtApp.WindowState = "Minimized"
Set qtApp = Nothing
End Function