Dynamic wait in QTP

[venkatbatchu]

Hi,
I have tried with Basanth code which is while loop condition but i am not able to execute with that which is making some syntactical errors

so i tried with some of the logics given by basanth and finally publishing here
Please let me know if there is solution apart from these
and please correct me if i am going in wrong direction

Code:

function timer1()
For j=1 to 2 step 1
For i=1 to 10000 step 1
m=Browser("xxxxxxxx").WinStatusBar("msctls_statusbar32").GetROProperty("text")
If m="Done" Then
    wait 1
Exit for
End If
Next
Next
end function

I have tried using only one single loop instead of two loops and i was getting errors with that single loop so finally i have added one more loop to solve that issue

Thanks in advance
Venkat Batchu