Dim qtApp 'As QuickTest.Application
' Declare the Application object variableDim qtTest 'As QuickTest.Test ' Declare a Test object variableSet qtApp = CreateObject("QuickTest.Application","HOSTNAME")
' Create the Application objectqtApp.Launch ' Start QuickTest
qtApp.Visible = True
' Make the QuickTest application visible
qtApp.Open "C:\Temp\simple_test", True ' Open the test in read-only mode' set run settings for the testSet qtTest = qtApp.Test