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