// function to Synchronize for a particular object
Public function fnSynchronization(objName)
fnSynchronization=false
Dim intLoopStart
Dim intLoopwait
intLoopStart=1
intLoopwait=10
Set objName=objName
'Waiting for the object to appear
Do while intLoopStart<=intLoopwait
'wait for exitance of that object
If objName.Exist(1) then
fnSynchronization=true
Exit do
Else
intLoopStart=intLoopStart+1
End if
Loop
End function
No comments:
Post a Comment