How to Configure QTP Screen during Launching QTP?

Prerequisites: Make sure all Pane windows in QTP is closed (Ex: ActiveScreen, DataTable… etc).
Procedure: Open notepad and Paste the below Script and save it in appropriate location with .vbs extension (Ex: Test.vbs). Once the script is saved Click on that VBS File (Double Click), it opens QTP Window within configured Pane setting.
Verification: Once the QTP is opened make sure that all the pane settings are configured on window

Code:
Dim QApp ' Declares a Variable
Set QApp = CreateObject ("QuickTest.Application") 'Creates an Object to Variable
QApp.Launch 'Requests to Launch QTP Window

QApp.ActivateView "KeywordView/ ExpertView" 'Display the Expert View/ Tree View for Coding Section
QApp.ShowPaneScreen "ActiveScreen",True 'Display the Active Screen pane if second Parameter is True
QApp.ShowPaneScreen "DataTable", True/False 'Shows the Data table if True else Hides the Data Table
QApp.ShowPaneScreen "DebugViewer", True/False 'Display the Debug Viewer pane if True else Hides the Debug Viewer
QApp.WindowState = "Maximized/Minimized/Restored" 'Displays the QTP Window Status as Maximize/ Minimize/ Restores the Quick Test window
QApp.Visible = True/False 'Make the Quick Test window visible if True else blinks the QTP window and makes disappear.

Set QApp = Nothing 'Release the Application object