>otest = NEWOBJECT('TestForm') >otest.Show >>
>this.navigate("D:\VFP CUSTOM APPS\Pembroke\PLProject\Source\listbrowser.htm") > >*********IT HANGS IN ROUTINE BELOW >DECLARE INTEGER Sleep IN WIN32API INTEGER nTimeout >DO WHILE this.readystate # 4 > Sleep(100) >ENDDO > >this.Document.body.leftmargin = 0 >this.Document.body.topmargin = 0 > >SET TEXTMERGE TO MEMVAR lcList NOSHOW >SET TEXTMERGE ON >\<table width="277" border="0" cellspacing="1" cellpadding="1"> >\ <tr> >\ <td width="25" bgcolor="#0033CC" class="ListHeader"> </td> >\ <td width="142" bgcolor="#0033CC" class="ListHeader"><div align="center">Description</div></td> >\ <td width="64" bgcolor="#0033CC" class="ListHeader"><div align="center">In Process </div></td> >\ <td width="64" bgcolor="#0033CC" class="ListHeader"><div align="center">Completed</div></td> >\ </tr> >\ <tr> >\ <td><img src="delX.gif" width="15" height="15"></td> >\ <td><span class="NormalText">LineItem</span></td> >\ <td><div align="center"> </div></td> >\ <td><div align="center"><img src="greencheck.gif" width="15" height="15"></div></td> >\ </tr> >\</table> >SET TEXTMERGE off >SET TEXTMERGE to >this.Document.body.innerHTML = lcList >>