>I would add a limit of time in this loop:
>
>

>LOCAL lnSecs, lnLimitTime
>lnSecs = SECONDS()
>lnLimitTime = 5 && 5 seconds
>
>DO WHILE (Thisform.oWB.OBJECT.Busy OR Thisform.oWB.OBJECT.ReadyState <> 4)
>   IF SECONDS() - lnSecs > lnLimitTime
>      MESSAGEB("Could not load the document")
>      EXIT
>   ENDIF
>   DOEVENTS
>ENDDO
>

I would also,
but as I said that is just for testing purposes only to see IF the document can be loaded.