QTP中Run Mode 从Nomal 改成 Fsat 代码

Dim appObj
Set appObj = CreateObject("QuickTest.Application")
appObj.Options.Run.RunMode = "Normal" 'Fast,Normal
Set appObj=nothing

'设置步骤的间隔

Dim qtApp
Set qtApp = CreateObject("QuickTest.Application")
qtApp.Options.Run.StepExecutionDelay = 10 '(milliseconds)
Set qtApp = Nothing