Friday, July 6, 2007

Synchronize for a particular object

// 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: