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