'************************************************************************************************************************
'Description:
'
'This example configures a variety of OpenText Functional Testing options.
'************************************************************************************************************************

Dim qtApp 'As QuickTest.Application ' Declare the Application object variable

Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
qtApp.Launch ' Launch the Application
qtApp.Visible = True ' Make OpenText Functional Testing visible

' Configure basic testing behavior options
qtApp.Options.AutoGenerateWith = True
qtApp.Options.AutoParameterizeSteps = True
qtApp.Options.AutoParameterType = "Test"
qtApp.Options.WithGenerationLevel = 3
qtApp.Options.DisableVORecognition = True
qtApp.Options.SaveLoadAndMonitorData = False
qtApp.Options.TimeToActivateWinAfterPoint = 600
qtApp.Options.RestoreLayout

' Configure text recognition preferences
qtApp.Options.TextRecognitionBlockType = "Multiple"

Set qtApp = Nothing ' Release the Application object