Configure UFT View for Running in Visible Mode
Source code
'************************************************************************************************************************
'Description:
'
'This example configures UFT views and panes for running UFT in visible mode.
'************************************************************************************************************************

Dim qtApp 'As QuickTest.Application ' Declare the Application object variable
Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
qtApp.Launch ' Start UFT

qtApp.ActivateView "ExpertView" ' Display the Editor
qtApp.Options.DisplayKeywordView = False ' Hide the Keyword View
qtApp.ShowPaneScreen "ActiveScreen", True ' Display the Active Screen pane
qtApp.ShowPaneScreen "DataTable", False ' Hide the Data Table Explorer pane
qtApp.ShowPaneScreen "DebugViewer", True ' Display the Debug Watch pane
qtApp.WindowState = "Maximized" ' Maximize the UFT window
qtApp.Visible = True ' Make the UFT window visible

Set qtApp = Nothing ' Release the Application object