Delay Time in QTP

[tbien]

Code:

public Function waitForElement(element)

Dim n

for n=0 to 1000 step 1
    If element.Exist then
        n=1000
        Else wait 1
        End If
Next

End Function