>>PUBLIC x >>x = CREATEOBJECT("Mainform") >>x.Show() >> >>*- >> >>DEFINE CLASS MainForm as Form >> SContainer = NULL >> width = 700 >> Height = 400 >> >> ADD OBJECT Pgf AS PageFrame WITH left = 5, Top =210, Width = 690, Height = 180, pagecount = 2, TabStyle = 1, Anchor = 14 >> >> FUNCTION Init >> THIS.sContainer = CREATEOBJECT("SContainer") >> ACTIVATE WINDOW (THIS.sContainer.Name) IN WINDOW (THIS.Name) >> THIS.sContainer.Show() >> THIS.Resize() >> ENDFUNC >> >> FUNCTION resize >> THIS.sContainer.Move(0,0, THIS.Width - SYSMETRIC(5), THIS.Height - 200 - SYSMETRIC(6)) >> ENDFUNC >>ENDDEFINE >> >>*- >> >>DEFINE CLASS Scontainer as Form >> Scrollbars = 3 >> TitleBar= 0 >> BorderStyle = 0 >> >> ADD OBJECT Explanation as Label WITH Caption = "This is the scrollable container", left = 100, top = 100, autosize = .t. >> ADD OBJECT FarObject as commandbutton WITH Left = 1000, top = 1000 >>ENDDEFINE >>>