Publi oform oform=Newobject("yform") oform.Show Read Events Retu Define Class yform As Form Width=700 Height=500 Left=100 Top=20 ShowWindow=2 Name="form1" Add Object Container1 As asup With ; left=36,; top=48,; width=505,; height=241,; name="container1" procedure destroy oform=null release oform clea events endproc Enddefine ************ Define Class asup As Container Top = 36 Left = 48 Width = 505 Height = 241 BackStyle = 0 BorderWidth = 0 Name = "ctl" Add Object obrowser As OleControl With ; Oleclass="shell.explorer.2", ; Top = 12, ; Left = 0, ; Height = 72, ; Width = 96, ; Name = "oBrowser" Add Object label1 As Label With ; &&or whatever... AutoSize = .T., ; FontSize = 16, ; Anchor = 768, ; Caption = "azaazazazazaza ", ; Height = 27, ; Left = 151, ; Top = 8, ; Width = 158, ; Name = "Label1" Procedure Init With This.obrowser .Navigate("www.atoutfox.org/") .Left=0 .Top=.Parent.label1.Top+.Parent.label1.Height+1 .Width=.Parent.Width .Height=.Parent.Height-.Top Endwith Endproc Enddefine * *-- EndDefine: asup