Sub OnStartup
           Dim ind
           
           ind = SDB.UI.AddOptionSheet("TestSheet",Script.ScriptPath,"InitSheet","SaveSheet",-2)
           
        End Sub

        Sub InitSheet(Sheet)
           Dim form, Panel1, Panel2, Panel3, Panel4, PanelWidth

           PanelWidth = Sheet.Common.Width -20
           
           Set Panel1 = SDB.UI.NewGroupBox(Sheet)
           Panel1.Common.Anchors = 1+2+4
           Panel1.Caption = "Panel 1"
           
           Set Panel2 = SDB.UI.NewGroupBox(Sheet)
           Panel2.Common.Anchors = 1+2+4
           Panel2.Caption = "Panel 2"
           
           Set Panel3 = SDB.UI.NewGroupBox(Sheet)
           Panel3.Common.Anchors = 1+2+4
           Panel3.Caption = "Panel 3"
           
           Set Panel4 = SDB.UI.NewGroupBox(Sheet)
           Panel4.Common.Anchors = 1+2+4
           Panel4.Caption = "Panel 4"

           PanelWidth = Sheet.Common.Width -20

           Panel1.Common.SetRect 10,5,PanelWidth,50   
           Panel2.Common.SetRect 10,65,PanelWidth ,50   
           Panel3.Common.SetRect 10,125,PanelWidth,50   
           Panel4.Common.SetRect 10,185,PanelWidth,50   
        End Sub

        Sub SaveSheet(Sheet)
           
        End Sub