PUBLIC oform1 > >oform1=NEWOBJECT("form1") >oform1.Show >RETURN > > >DEFINE CLASS form1 AS form > > > Top = 0 > Left = 0 > Height = 366 > Width = 664 > DoCreate = .T. > Caption = "Form1" > Name = "Form1" > > > ADD OBJECT olecontrol1 AS olecontrol WITH ; > Top = 24, ; > Left = 48, ; > Height = 324, ; > Width = 564, ; > Name = "Olecontrol1" ,; > OleClass ="Shell.Explorer.2" > > > > PROCEDURE Load > TEXT TO lcHTM noshow > <html> > <script src='http://voap.weather.com/weather/oap/USCO0038? > template=LAWNH&par=null&unit=0&key=23b21baeda744bc2b22d51bf2ed5b2bd'> > </script> > </html> > ENDTEXT > STRTOFILE(lcHtm,"c:\temp\test.htm") > ENDPROC > > > PROCEDURE olecontrol1.Init > this.navigate("c:\temp\test.htm") > ENDPROC > > >ENDDEFINE