PC World Komputer 1997 February/PCWK0297.iso/envelop/envelop.5/Tools/Bootcamp/advanced/controls/controls.eto

Text File | 1996-07-08 | 88KB | 2,948 lines

Type SampleControlForm From Form
  Dim TheControl As Control
  Dim DisplayHeight As Integer
  Dim Divider1 As New Gauge
  Dim BTNBackColor As New Button
  Dim BTNForeColor As New Button
  Dim BTNFont As New Button
  Dim LeftLabel As New Label
  Dim TopLabel As New Label
  Dim WidthLabel As New Label
  Dim HeightLabel As New Label
  Dim LeftValue As New Label
  Dim TopValue As New Label
  Dim WidthValue As New Label
  Dim HeightValue As New Label
  Dim LeftSB As New ScrollBar
  Dim TopSB As New ScrollBar
  Dim WidthSB As New ScrollBar
  Dim HeightSB As New ScrollBar
  Dim CaptionLabel As New Label
  Dim CaptionTB As New TextBox
  Dim Divider2 As New Gauge
  Dim StaticBottom As Integer
  Dim ControlFont As New Font
  Dim PickAFont As New FontDialog
  Dim BTNEnabled As New CheckBox
  Dim BTNVisible As New CheckBox
  Dim BTNFormBackColor As New Button
  Dim BTNFormForeColor As New Button
  Dim Margin As Integer
  Dim ControlHeight As Integer

  ' METHODS for object: SampleControlForm
  Sub BTNBackColor_Click()
    Dim dlgResult as integer
    dlgResult = ColorDialog.Execute
    If TheControl <> Nothing And dlgResult = 1 Then
      TheControl.BackColor = ColorDialog.Color
    Else
      TheControl.BackColor = -1
    End If
  End Sub

  Sub BTNEnabled_Click()
    If TheControl Then
      If BTNEnabled.Value = 0 Then
        TheControl.Enabled = "False"
      Else
        TheControl.Enabled = "True"
      End If
    End If
  End Sub

  Sub BTNFont_Click()
    PickAFont.Execute
    ControlFont.Bold = PickAFont.Bold
    ControlFont.FaceName = PickAFont.FaceName
    ControlFont.Italic = PickAFont.Italic
    ControlFont.Strikethru = PickAFont.Strikethru
    ControlFont.Underline = PickAFont.Underline
    ControlFont.Size = PickAFont.Size
    If TheControl Then TheControl.Font = ControlFont
  End Sub

  Sub BTNForeColor_Click()
    Dim dlgResult as integer
    dlgResult = ColorDialog.Execute
    If TheControl <> Nothing And dlgResult = 1 Then
      TheControl.ForeColor = ColorDialog.Color
    Else
      TheControl.ForeColor = -1
    End If
  End Sub

  Sub BTNFormBackColor_Click()
    If ColorDialog.Execute = 1 Then
      BackColor = ColorDialog.Color
    Else
      BackColor = -1
    End If
  End Sub

  Sub BTNFormForeColor_Click()
    If ColorDialog.Execute = 1 Then
      ForeColor = ColorDialog.Color
    Else
      ForeColor = -1
    End If
  End Sub

  Sub BTNVisible_Click()
    If TheControl Then
      If BTNVisible.Value = 0 Then
        TheControl.Visible = "False"
      Else
        TheControl.Visible = "True"
      End If
    End If
  End Sub

  Sub CaptionTB_Change()
    If TheControl Then TheControl.Caption = CaptionTB.Text
  End Sub

  Sub HeightSB_Change()
    HeightValue.Text = HeightSB.Value
    TopSB.Max = DisplayHeight - HeightSB.Value
    TopSB.Refresh
    MoveControl
  End Sub

  Sub HeightSB_Scroll()
    HeightSB_Change
  End Sub

  Sub LeftSB_Change()
    LeftValue.Text = LeftSB.Value
    WidthSB.Max = ScaleWidth - LeftSB.Value
    WidthSB.Refresh
    MoveControl
  End Sub

  Sub LeftSB_Scroll()
    LeftSB_Change
  End Sub

  Sub Load()
    SetCaptions
    Divider1.Value = Divider1.Max
    Divider2.Value = Divider2.Max
    BTNEnabled.Value = 1
    BTNVisible.Value = 1
    CaptionTB.Text = ""
    If TheControl Then
      TheControl.Move(0, 0, 0, 0)
      TheControl.Caption = ""
    End If
  End Sub

  Sub MoveControl()
    If TheControl Then
      TheControl.Move(LeftSB.Value, TopSB.Value, WidthSB.Value, HeightSB.Value)
      TheControl.Refresh
    End If
  End Sub

  Sub Preload
    Load
    ResetApplication_Click
  End Sub

  Sub ResetApplication_Click()
    ' Need to get the Labels to display the proper values, and move
    ' the Control to the correect position
    LeftSB_Change
    TopSB_Change
    WidthSB_Change
    HeightSB_Change
  End Sub

  Sub Resize()
    Dim ColorFontWide as Integer
    Dim ColorFontTall as Integer
    Dim LabelWidth as Integer
    Dim ValueWidth as Integer
    Dim NewTop as Integer
    Dim LocationHeight as Integer
    Dim OptionHeight as Integer
    Dim OptionWidth as Integer
    Dim CaptionHeight as Integer
    Dim CaptionWidth as Integer
    If ScaleHeight < (ControlHeight + 100) Then Height = ControlHeight + 2000
    DisplayHeight = ScaleHeight - ControlHeight
    CaptionHeight = 400
    CaptionWidth = 1000
    Margin = 100
    ColorFontWide = 1400
    ColorFontTall = 400
    LabelWidth = 1000
    ValueWidth = 1000
    LocationHeight = 225
    OptionWidth = 1300
    OptionHeight = 300
    Divider1.Move(Margin, DisplayHeight, ScaleWidth - 2 * Margin, 20)
    BTNBackColor.Move(Margin, DisplayHeight + Margin, ColorFontWide, ColorFontTall)
    BTNForeColor.Move(2 * Margin + ColorFontWide, DisplayHeight + Margin, ColorFontWide, ColorFontTall)
    BTNFont.Move(3 * Margin + 2 * ColorFontWide, DisplayHeight + Margin, ColorFontWide, ColorFontTall)
    BTNFormBackColor.Move(4 * Margin + 3 * ColorFontWide, DisplayHeight + Margin, ColorFontWide, ColorFontTall)
    BTNFormForeColor.Move(5 * Margin + 4 * ColorFontWide, DisplayHeight + Margin, ColorFontWide, ColorFontTall)
    NewTop = DisplayHeight + 3 * Margin + ColorFontTall
    LeftLabel.Move(Margin, NewTop, LabelWidth, LocationHeight)
    LeftValue.Move(2 * Margin + LabelWidth, NewTop, ValueWidth, LocationHeight)
    LeftSB.Move(3 * Margin + LabelWidth + ValueWidth, NewTop, ScaleWidth - 4 * Margin - LabelWidth - ValueWidth, LocationHeight)
    NewTop = NewTop + Margin + LocationHeight
    TopLabel.Move(Margin, NewTop, LabelWidth, LocationHeight)
    TopValue.Move(2 * Margin + LabelWidth, NewTop, ValueWidth, LocationHeight)
    TopSB.Move(3 * Margin + LabelWidth + ValueWidth, NewTop, ScaleWidth - 4 * Margin - LabelWidth - ValueWidth, LocationHeight)
    NewTop = NewTop + Margin + LocationHeight
    WidthLabel.Move(Margin, NewTop, LabelWidth, LocationHeight)
    WidthValue.Move(2 * Margin + LabelWidth, NewTop, ValueWidth, LocationHeight)
    WidthSB.Move(3 * Margin + LabelWidth + ValueWidth, NewTop, ScaleWidth - 4 * Margin - LabelWidth - ValueWidth, LocationHeight)
    NewTop = NewTop + Margin + LocationHeight
    HeightLabel.Move(Margin, NewTop, LabelWidth, LocationHeight)
    HeightValue.Move(2 * Margin + LabelWidth, NewTop, ValueWidth, LocationHeight)
    HeightSB.Move(3 * Margin + LabelWidth + ValueWidth, NewTop, ScaleWidth - 4 * Margin - LabelWidth - ValueWidth, LocationHeight)
    NewTop = NewTop + 2 * Margin + LocationHeight
    BTNEnabled.Move(Margin, NewTop, OptionWidth, OptionHeight)
    BTNVisible.Move(2 * Margin + OptionWidth, NewTop, OptionWidth, OptionHeight)
    NewTop = NewTop + Margin + OptionHeight
    CaptionLabel.Move(Margin, NewTop, CaptionWidth, CaptionHeight)
    CaptionTB.Move(2 * Margin + CaptionWidth, NewTop, ScaleWidth - 3 * Margin - CaptionWidth, CaptionHeight)
    NewTop = NewTop + Margin + CaptionHeight
    Divider2.Move(Margin, NewTop, ScaleWidth - 2 * Margin, 20)
    StaticBottom = NewTop + Margin + 20
    TopSB.Value = (DisplayHeight / 2) - 200
    LeftSB.Value = (ScaleWidth / 2) - 750
    HeightSB.Value = 400
    WidthSB.Value = 1500
    Refresh
  End Sub

  Sub SetCaptions()
    BTNBackColor.Caption = "BackColor"
    BTNEnabled.Caption = "Enabled"
    BTNFont.Caption = "Font"
    BTNForeColor.Caption = "ForeColor"
    BTNVisible.Caption = "Visible"
    BTNFormBackColor.Caption = "Form BackClr"
    BTNFormForeColor.Caption = "Form ForeClr"
    CaptionLabel.Text = "Caption:"
    HeightLabel.Text = "Height:"
    HeightValue.Text = "0"
    LeftLabel.Text = "Left:"
    LeftValue.Text = "0"
    TopLabel.Text = "Top:"
    TopValue.Text = "0"
    WidthLabel.Text = "Width:"
    WidthValue.Text = "0"
    CaptionTB.Clear
  End Sub

  Sub SetSB()
    LeftSB.Value = 0
    TopSB.Value = 0
    WidthSB.Value = 20
    HeightSB.Value = 20
    LeftSB_Change
    TopSB_Change
    WidthSB_Change
    HeightSB_Change
  End Sub

  Sub Setup()
    SetCaptions
  End Sub

  Sub TopSB_Change()
    TopValue.Text = TopSB.Value
    HeightSB.Max = DisplayHeight - TopSB.Value
    HeightSB.Refresh
    MoveControl

  End Sub

  Sub TopSB_Scroll()
    TopSB_Change
  End Sub

  Sub WidthSB_Change()
    WidthValue.Text = WidthSB.Value
    LeftSB.Max = ScaleWidth - WidthSB.Value
    LeftSB.Refresh
    MoveControl
  End Sub

  Sub WidthSB_Scroll()
    WidthSB_Change
  End Sub

End Type

Type SampleListComboBoxForm From SampleControlForm
  Dim CHKSorted As New CheckBox
  Dim BTNQAdd1 As New Button
  Dim BTNQAdd2 As New Button
  Dim BTNQAdd3 As New Button
  Dim TBItem As New TextBox
  Dim BTNAddItem As New Button
  Dim BTNInsertItem As New Button
  Dim InsertItemSB As New ScrollBar
  Dim InsertItemLBL As New Label
  Dim BTNRemoveItem As New Button
  Dim LBLListCount As New Label
  Dim LBLListIndex As New Label
  Dim SBListIndex As New ScrollBar
  Dim BTNClear As New Button
  Dim LBLItem As New Label
  Dim CursorX As Integer
  Dim CursorY As Integer
  Dim LBLText As New Label
  Dim LBLTextValue As New Label

  ' METHODS for object: SampleListComboBoxForm
  Sub BTNAddItem_Click()
    TheControl.AddItem(TBItem.Text)
    TidyUp
  End Sub

  Sub BTNClear_Click()
    TheControl.Clear
    TidyUp
  End Sub

  Sub BTNInsertItem_Click()
    TheControl.InsertItem(TBItem.Text, InsertItemSB.Value)
    TidyUp
  End Sub

  Sub BTNQAdd1_Click()
    TheControl.AddItem("Nasai, Gomen")
    TheControl.AddItem("Stehl, Douglas")
    TheControl.AddItem("Murdock, H.M.")
    TheControl.AddItem("Nasai, Kuda")
    TheControl.AddItem("Haslett, Geronimo")
    TheControl.AddItem("Powell, Christopher")
    TheControl.AddItem("Kheldar, Matther")
    TidyUp
  End Sub

  Sub BTNQAdd2_Click()
    TheControl.AddItem("Nihao my Concubine")
    TheControl.AddItem("Big Trouble in Neronlon, China")
    TheControl.AddItem("Desperately Seeking Shampoo")
    TheControl.AddItem("Like Water for Ranma")
    TheControl.AddItem("Akane and Her Sisters")
    TheControl.AddItem("Ranma 1/2 T.V. Series")
    TheControl.AddItem("Tendo Christmas Shuffle")
    TidyUp
  End Sub

  Sub BTNQAdd3_Click()
    TheControl.AddItem("ATRC-2 Attitude Reconstructor")
    TheControl.AddItem("VCTR-A Victor 1A")
    TheControl.AddItem("MCLD-1 McCloud")
    TheControl.AddItem("FLTP-4 FlyTrap")
    TheControl.AddItem("CNPN-O Can Opener")
    TheControl.AddItem("MRDR-2 Marauder 2")
    TheControl.AddItem("BLTZ-A Blitzkrieg")
    TidyUp
  End Sub

  Sub BTNRemoveItem_Click()
    TheControl.RemoveItem(InsertItemSB.Value)
    TidyUp
  End Sub

  Sub CHKSorted_Click()
    If CHKSorted.Value = 0 Then
      TheControl.Sorted = "False"
    Else
      TheControl.Sorted = "True"
    End If
    TidyUp
  End Sub

  Sub IncCX(Jump as integer)
    If Jump >= 0 Then
      CursorX = CursorX + Jump + Margin
    Else
      CursorX = CursorX + Jump - Margin
    End If
  End Sub

  Sub IncCY(Jump as Integer)
    If Jump >= 0 Then
      CursorY = CursorY + Jump + Margin
    Else
      CursorY = CursorY + Jump - Margin
    End If
  End Sub

  Sub InsertItemSB_Change()
    InsertItemLBL.Caption = "Insert/Remove Index: " & InsertItemSB.Value
    InsertItemSB.Refresh
  End Sub

  Sub InsertItemSB_Scroll()
    InsertItemSB_Change
  End Sub

  Sub LineFeed()
    CursorX = Margin
  End Sub

  Sub Load()
    dim F1 strictly as SampleControlForm
    F1 = Me
    F1.Load
    ControlHeight = 5800
    SetCaptions2
    SBListIndex.SmallChange = 1
    SBListIndex.LargeChange = 10
    SBListIndex.Min = -1
    InsertItemSB.SmallChange = 1
    InsertItemSB.LargeChange = 10
  End Sub

  Sub Resize()
    dim F1 strictly as SampleControlForm
    dim CHKW,CHKH as Integer
    dim BTNW,BTNH as Integer
    dim TBW,TBH as Integer
    dim LBLW,LBLH as Integer
    dim SBW,SBH as Integer
    dim Multiplier as single
    F1 = Me
    F1.Resize

    CursorX = Margin
    CursorY = StaticBottom + Margin
    CHKW = 1000
    CHKH = 225
    BTNW = 1400
    BTNH = 400
    TBW = 5500
    TBH = 400
    LBLW = 1500
    LBLH = 225
    SBW = 2500
    SBH = 225
    LBLListCount.Move(CursorX, CursorY, LBLW, LBLH)
    IncCX(LBLW)
    CHKSorted.Move(CursorX, CursorY, CHKW, CHKH)
    IncCX(CHKW)
    LBLListIndex.Move(CursorX, CursorY, LBLW, LBLH)
    IncCX(LBLW)
    SBListIndex.Move(CursorX, CursorY, SBW, SBH)
    LineFeed
    IncCY(CHKH)
    LBLText.Move(CursorX, CursorY, LBLW - 400, LBLH)
    IncCX(LBLW)
    LBLTextValue.Move(CursorX, CursorY, LBLW * 10, LBLH)
    LineFeed
    IncCY(LBLH)
    IncCY(0)
    BTNAddItem.Move(CursorX, CursorY, BTNW, BTNH)
    IncCX(BTNW)
    BTNInsertItem.Move(CursorX, CursorY, BTNW, BTNH)
    IncCX(BTNW)
    BTNRemoveItem.Move(CursorX, CursorY, BTNW, BTNH)
    IncCX(BTNW)
    BTNClear.Move(CursorX, CursorY, BTNW, BTNH)
    LineFeed
    Multiplier = 1.2
    IncCY(BTNH)
    LBLItem.Move(CursorX, CursorY, LBLW * Multiplier, LBLH)
    IncCX(LBLW * Multiplier)
    TBItem.Move(CursorX, CursorY, TBW, TBH)
    LineFeed
    IncCY(TBH)
    InsertItemLBL.Move(CursorX, CursorY, LBLW * Multiplier, LBLH)
    IncCX(LBLW * Multiplier)
    InsertItemSB.Move(CursorX, CursorY, SBW, SBH)
    LineFeed
    IncCY(LBLH)
    BTNQAdd1.Move(CursorX, CursorY, BTNW, BTNH)
    IncCX(BTNW)
    BTNQAdd2.Move(CursorX, CursorY, BTNW, BTNH)
    IncCX(BTNW)
    BTNQAdd3.Move(CursorX, CursorY, BTNW, BTNH)






    Refresh
  End Sub

  Sub SBListIndex_Change()
    LBLListIndex.Caption = "ListIndex: " & SBListIndex.Value
    TheControl.ListIndex = SBListIndex.Value
    LBLTextValue.Text = TheControl.Text
  End Sub

  Sub SBListIndex_Scroll()
    SBListIndex_Change
  End Sub

  Sub SetCaptions2()
    BTNClear.Caption = "Clear"
    BTNInsertItem.Caption = "InsertItem"
    BTNAddItem.Caption = "AddItem"
    BTNQAdd1.Caption = "Quick Add 1"
    BTNQAdd2.Caption = "Quick Add 2"
    BTNQAdd3.Caption = "Quick Add 3"
    BTNRemoveItem.Caption = "RemoveItem"
    CHKSorted.Caption = "Sorted"
    InsertItemSB.Orientation = "Horizontal"
    LBLText.Text = "Text:"
    LBLText.Alignment = 1
    SBListIndex.Orientation = "Horizontal"
    LBLItem.Text = "Add/Insert Item:"
    InsertItemLBL.Text = "Insert/Remove at: "
    LBLItem.Alignment = 1
    InsertItemLBL.Alignment = 1
  End Sub

  Sub TidyUp()
    If InsertItemSB.Value > TheControl.ListCount Then
      InsertItemSB.Value = TheControl.ListCount
    End If
    InsertItemSB.Max = TheControl.ListCount
    InsertItemLBL.Text = "Insert/Remove Index: " & InsertItemSB.Value
    SBListIndex.Value = TheControl.ListIndex
    SBListIndex.Max = TheControl.ListCount - 1
    LBLListIndex.Text = "ListIndex: " & TheControl.ListIndex
    LBLListCount.Text = "ListCount: " & TheControl.ListCount
    LBLTextValue.Text = TheControl.Text
    If TheControl.ListCount <= 0 Then
      BTNRemoveItem.Enabled = "False"
    Else
      BTNRemoveItem.Enabled = "True"
    End If
  End Sub

End Type

Type SampleListBoxForm From SampleListComboBoxForm
  Dim TheListBox As New ListBox

  ' METHODS for object: SampleListBoxForm
  Sub Load()
    dim F1 strictly as SampleListComboBoxForm
    F1 = Me
    F1.Load
  End Sub

  Sub Resize()
    dim F1 strictly as SampleListComboBoxForm
    F1 = Me
    F1.Resize
  End Sub

  Sub TheListBox_Click()
    SBListIndex.Value = TheControl.ListIndex
    LBLTextValue.Text = TheControl.Text
  End Sub

End Type

Type SamplePickerForm From SampleMasterForm
  Dim List As New ObjectHierarchy
  Dim CurForm As Form

  ' METHODS for object: SamplePickerForm
  Sub ExitApplication_Click()
    helpfile.Quit
    Hide
    If CurForm Then CurForm.Hide
  End Sub

  Sub List_DblClick()
    If List.SelObject Then
      If CurForm Then
        Dim l, t, w, h as single
        l = CurForm.Left
        t = CurForm.Top
        w = CurForm.Width
        h = CurForm.Height
        List.SelObject.Move(l, t, w, h)
      End If
      List.SelObject.Show
      List.SelObject.BringToTop
      List.SelObject.ResetApplication_Click
      If CurForm Then CurForm.Hide
      CurForm = List.SelObject
    End If
  End Sub

  Sub Load()
    List.RootObject = SampleControlForm
    List.ExpandAll
  End Sub

  Sub Resize()
    List.Move(0, 0, ScaleWidth, ScaleHeight)
  End Sub

  Function TextUnload(ByVal indent As String, cmds As String) As Integer
    TextUnload = False
  End Function

End Type

Type SampleTextBoxForm From SampleControlForm
  Dim TheText As New TextBox
  Dim CBAlignment As New ComboBox
  Dim ChkMultiLine As New CheckBox
  Dim ChkWordWrap As New CheckBox
  Dim SelLengthLabel As New Label
  Dim SelLengthValue As New Label
  Dim SelStartLabel As New Label
  Dim SelStartValue As New Label
  Dim SelLengthSB As New ScrollBar
  Dim SelStartSB As New ScrollBar
  Dim ignore As Integer
  Dim Ignore As Integer
  Dim CBScrollBars As New ComboBox
  Dim AlignmentLBL As New Label
  Dim ScrollBarLBL As New Label

  ' METHODS for object: SampleTextBoxForm
  Sub CaptionTB_Change()
    dim F1 strictly as SampleControlForm
    F1 = Me
    F1.CaptionTB_Change
    Ignore = 1
    ' If SelStartSB.Value > Len(TheControl.Text) Then SelStartSB.Value = Len(TheControl.Text)
    ' If SelLengthSB.Value > Len(TheControl.Text) Then SelLengthSB.Value = Len(TheControl.Text)
    ' SelStartSB.Max = Len(TheControl.Text)
    ' SelLengthSB.Max = Len(TheControl.Text)
    SelLengthSB.Value = 0
    SelSBChange
    Ignore = 0
  End Sub

  Sub CBAlignment_Click()
    TheControl.Alignment = CBAlignment.ListIndex
  End Sub

  Sub CBScrollBars_Click()
    ' The ScrollBars Property only makes sense if the TextBox has
    ' the MULTILINE property set to "True"
    If TheControl.MultiLine = "False" Then
      CBScrollBars.ListIndex = 0
    Else
      TheControl.ScrollBars = CBScrollBars.ListIndex
    End If
  End Sub

  Sub ChkMultiLine_Click()
    If ChkMultiLine.Value = 0 Then
      TheControl.MultiLine = "False"
    Else
      TheControl.MultiLine = "True"
    End If
  End Sub

  Sub ChkWordWrap_Click()
    If ChkWordWrap.Value = 0 Then
      TheControl.WordWrap = "False"
    Else
      TheControl.WordWrap = "True"
    End If
  End Sub

  Sub Load()
    dim F1 strictly as SampleControlForm
    TheControl = TheText
    F1 = Me
    F1.Load
    ControlHeight = 4870
    CBAlignment.Clear
    CBAlignment.AddItem("0-Left")
    CBAlignment.AddItem("1-Right")
    CBAlignment.AddItem("2-Center")
    CBAlignment.ListIndex = 0
    CBScrollBars.Clear
    CBScrollBars.AddItem("0-None")
    CBScrollBars.AddItem("1-Horizontal")
    CBScrollBars.AddItem("2-Vertical")
    CBScrollBars.AddItem("3-Both")
    CBScrollBars.ListIndex = 0
  End Sub

  Sub Resize()
    dim F1 strictly as SampleControlForm
    dim CursorX,CursorY as integer
    dim ChkHeight,ChkWidth as Integer
    dim CBWidth,CBHeight as Integer
    dim LabelWidth,LabelHeight as Integer
    dim ValueWidth,ValueHeight as Integer
    dim SBWidth, SBHeight as Integer
    LabelWidth = 1500
    ValueWidth = 1005
    SBWidth = ScaleWidth - (4 * Margin) - ValueWidth - LabelWidth
    LabelHeight = 225
    ValueHeight = 225
    SBHeight = 225
    F1 = Me
    F1.Resize
    CBWidth = 2000
    CBHeight = 1500
    ChkHeight = 300
    ChkWidth = 3000
    CursorX = 0
    CursorY = StaticBottom
    CursorX = CursorX + Margin
    CursorY = CursorY + Margin
    ChkMultiLine.Move(CursorX, CursorY, ChkWidth, ChkHeight)
    CursorX = CursorX + ChkWidth + Margin
    AlignmentLBL.Move(CursorX, CursorY, LabelWidth, LabelHeight)
    CursorX = Margin
    CursorY = CursorY + ChkHeight + Margin
    ChkWordWrap.Move(CursorX, CursorY, ChkWidth, ChkHeight)
    CursorX = CursorX + ChkWidth + Margin
    ScrollBarLBL.Move(CursorX, CursorY, LabelWidth, LabelHeight)
    CursorX = Margin
    CursorY = CursorY + ChkHeight + Margin + Margin + Margin
    SelStartLabel.Move(CursorX, CursorY, LabelWidth, LabelHeight)
    CursorY = CursorY + LabelHeight + Margin
    SelLengthLabel.Move(CursorX, CursorY, LabelWidth, LabelHeight)
    CursorY = CursorY - LabelHeight - Margin
    CursorX = CursorX + LabelWidth + Margin
    SelStartValue.Move(CursorX, CursorY, ValueWidth, ValueHeight)
    CursorY = CursorY + ValueHeight + Margin
    SelLengthValue.Move(CursorX, CursorY, ValueWidth, ValueHeight)
    CursorY = CursorY - ValueHeight - Margin
    CursorX = CursorX + ValueWidth + Margin
    SelStartSB.Move(CursorX, CursorY, SBWidth, SBHeight)
    CursorY = CursorY + SBHeight + Margin
    SelLengthSB.Move(CursorX, CursorY, SBWidth, SBHeight)

    CursorY = StaticBottom + Margin
    CursorX = Margin + ChkWidth + Margin + LabelWidth + Margin
    CBAlignment.Move(CursorX, CursorY, CBWidth, CBHeight)
    CursorY = CursorY + ChkHeight + Margin
    CBScrollBars.Move(CursorX, CursorY, CBWidth, CBHeight)
    Refresh
  End Sub

  Sub SelLengthSB_Change()
    SelSBChange
  End Sub

  Sub SelLengthSB_Scroll()
    SelSBChange
  End Sub

  Sub SelSBChange()
    If TheControl Then
      Dim TextLen as integer
      TextLen = Len(TheControl.Text)
      SelStartSB.Max = TextLen - SelLengthSB.Value
      SelLengthSB.Max = TextLen - SelStartSB.Value
      SelStartValue.Caption = SelStartSB.Value
      SelLengthValue.Caption = SelLengthSB.Value
      TheControl.SelStart = SelStartSB.Value
      TheControl.SelLength = SelLengthSB.Value
      If Ignore = 0 Then TheControl.SetFocus Else Ignore = 1
      SelStartSB.Refresh
      SelLengthSB.Refresh
    End If
  End Sub

  Sub SelStartSB_Change()
    SelSBChange
  End Sub

  Sub SelStartSB_Scroll()
    SelSBChange
  End Sub

End Type

Type SampleLabelForm From SampleControlForm
  Dim TheLabel As New Label
  Dim ChkBorderToggle As New CheckBox
  Dim ChkWordWrapToggle As New CheckBox
  Dim CBAlignment As New ComboBox

  ' METHODS for object: SampleLabelForm
  Sub CBAlignment_Click()
    TheControl.Alignment = CBAlignment.ListIndex
  End Sub

  Sub ChkBorderToggle_Click()
    If ChkBorderToggle.Value = 1 Then
      TheControl.BorderStyle = 1
    Else
      TheControl.BorderStyle = 0
    End If
  End Sub

  Sub ChkWordWrapToggle_Click()
    If ChkWordWrapToggle.Value = 1 Then
      TheControl.WordWrap = "True"
    Else
      TheControl.WordWrap = "False"
    End If
  End Sub

  Sub Load()
    dim F1 strictly as SampleControlForm
    F1 = Me
    F1.Load
    ControlHeight = 4200
    CBAlignment.Clear
    CBAlignment.AddItem("0-Left")
    CBAlignment.AddItem("1-Right")
    CBAlignment.AddItem("2-Center")
    ChkBorderToggle.Caption = "Border"
    ChkBorderToggle.Value = 0
    ChkWordWrapToggle.Caption = "WordWrap"
    ChkWordWrapToggle.Value = 1
    CBAlignment.ListIndex = 0
  End Sub

  Sub Resize()
    dim TopCursor as integer
    dim LeftCursor as integer
    dim ChkH as Integer
    dim ChkW as Integer
    dim CBH as Integer
    dim CBW as Integer
    dim F1 strictly as SampleControlForm
    F1 = Me
    F1.Resize
    TopCursor = StaticBottom
    TopCursor = TopCursor + Margin
    LeftCursor = 0
    LeftCursor = LeftCursor + Margin
    ChkH = 350
    ChkW = 4300
    CBH = 1500
    CBW = 3000
    ChkBorderToggle.Move(LeftCursor, TopCursor, ChkW, ChkH)
    TopCursor = TopCursor + ChkH + Margin
    ChkWordWrapToggle.Move(LeftCursor, TopCursor, ChkW, ChkH)
    TopCursor = StaticBottom + Margin
    LeftCursor = LeftCursor + ChkW + Margin
    CBAlignment.Move(LeftCursor, TopCursor, CBW, CBH)
    Refresh
  End Sub

End Type

Type SampleCheckBoxForm From SampleControlForm
  Dim TheCheckBox As New CheckBox
  Dim ControlValue As New CheckBox

  ' METHODS for object: SampleCheckBoxForm
  Sub ControlValue_Click()
    TheControl.Value = ControlValue.Value
  End Sub

  Sub Load()
    dim F1 strictly as SampleControlForm
    TheControl = TheCheckBox
    F1 = Me
    F1.Load
    ControlHeight = 3600
    ' TODO: ControlValueDisplay.Alignment = 1
  End Sub

  Sub Resize()
    dim F1 strictly as SampleControlForm
    F1 = Me
    F1.Resize
    ControlValue.Move(Margin, StaticBottom + Margin - 40, 2000, 300)
    Refresh
  End Sub

  Sub TheCheckBox_Click()
    ControlValue.Value = TheControl.Value
  End Sub

End Type

Type SampleButtonForm From SampleControlForm
  Dim TheButton As New Button

  ' METHODS for object: SampleButtonForm
  Sub Load()
    dim F1 strictly as SampleControlForm
    F1 = Me
    TheControl = TheButton
    F1.Load
    ControlHeight = 3120
  End Sub

  Sub Resize()
    dim F1 strictly as SampleControlForm
    F1 = Me
    F1.Resize
    Refresh
  End Sub

End Type

Type SampleScrollBarForm From SampleControlForm
  Dim TheScrollBar As New ScrollBar
  Dim MinLBL As New Label
  Dim MinValue As New Label
  Dim MaxLBL As New Label
  Dim MaxValue As New Label
  Dim SmallLBL As New Label
  Dim SmallValue As New Label
  Dim LargeLBL As New Label
  Dim LargeValue As New Label
  Dim MinSB As New ScrollBar
  Dim MaxSB As New ScrollBar
  Dim SmallSB As New ScrollBar
  Dim LargeSB As New ScrollBar
  Dim ValueLBL As New Label
  Dim LBLStyle As New Label
  Dim CBStyle As New ComboBox

  ' METHODS for object: SampleScrollBarForm
  Sub CBStyle_Click()
    If CBStyle.ListIndex = 0 Then
      TheControl.Orientation = "Horizontal"
    Else
      TheControl.Orientation = "Vertical"
    End If
  End Sub

  Sub LargeSB_Change()
    SetScrollBar
  End Sub

  Sub LargeSB_Scroll()
    SetScrollBar
  End Sub

  Sub Load()
    dim F1 strictly as SampleControlForm
    TheControl = TheScrollBar
    F1 = Me
    F1.Load
    ControlHeight = 5000
    MinLBL.Alignment = 1
    MaxLBL.Alignment = 1
    SmallLBL.Alignment = 1
    LargeLBL.Alignment = 1
    MinValue.Alignment = 0
    MaxValue.Alignment = 0
    SmallValue.Alignment = 0
    LargeValue.Alignment = 0
    MinLBL.Text = "Min"
    MaxLBL.Text = "Max"
    SmallLBL.Text = "SmallChange"
    LargeLBL.Text = "LargeChange"
    LBLStyle.Text = "Orientation:"
    MinSB.Min = -32768
    MinSB.Max = 32767
    MaxSB.Min = -32768
    MaxSB.Max = 32767
    SmallSB.Min = -32768
    SmallSB.Max = 32767
    LargeSB.Min = -32768
    LargeSB.Max = 32767
    CBStyle.Clear
    CBStyle.AddItem("Horizontal")
    CBStyle.AddItem("Vertical")
    CBStyle.ListIndex = 0
    ValueLBL.Caption = "Value: "
  End Sub

  Sub MaxSB_Change()
    SetScrollBar
  End Sub

  Sub MaxSB_Scroll()
    SetScrollBar()
  End Sub

  Sub MinSB_Change()
    SetScrollBar
  End Sub

  Sub MinSB_Scroll()
    SetScrollBar
  End Sub

  Sub OBHoriz_Click()
    OBVert_Click
  End Sub

  Sub OBVert_Click()
    If OBVert.Value <> 0 Then
      TheControl.Orientation = "Vertical"
    Else
      TheControl.Orientation = "Horizontal"
    End If
  End Sub

  Sub Resize()
    dim F1 strictly as SampleControlForm
    dim CursorX, TopRow as Integer
    dim LBLW,SBW as Integer
    dim LBLH,SBH as Integer
    dim ValueW,OBW as Integer
    ValueW = 1400
    OBW = 2500
    LBLW = 1400
    LBLH = 225
    F1 = Me
    F1.Resize
    CursorX = Margin
    TopRow = StaticBottom + Margin
    ValueLBL.Move(CursorX, TopRow, ValueW, LBLH)
    LBLStyle.Move(CursorX + ValueW + Margin, TopRow, LBLW, LBLH)
    CBStyle.Move(CursorX + ValueW + Margin + LBLW + Margin, TopRow - 60, 3000, 1200)
    TopRow = TopRow + LBLH + Margin
    SBH = 225
    SBW = ScaleWidth - (4 * Margin) - (2 * LBLW) + 600
    MinLBL.Move(CursorX, TopRow, LBLW, LBLH)
    MaxLBL.Move(CursorX, TopRow + LBLH + Margin, LBLW, LBLH)
    SmallLBL.Move(CursorX, TopRow + (2 * LBLH) + (2 * Margin), LBLW, LBLH)
    LargeLBL.Move(CursorX, TopRow + (3 * LBLH) + (3 * Margin), LBLW, LBLH)
    CursorX = CursorX + LBLW + Margin
    MinValue.Move(CursorX, TopRow, LBLW - 600, LBLH)
    MaxValue.Move(CursorX, TopRow + LBLH + Margin, LBLW - 600, LBLH)
    SmallValue.Move(CursorX, TopRow + (2 * LBLH) + (2 * Margin), LBLW - 600, LBLH)
    LargeValue.Move(CursorX, TopRow + (3 * LBLH) + (3 * Margin), LBLW - 600, LBLH)
    CursorX = CursorX + LBLW - 600 + Margin
    MinSB.Move(CursorX, TopRow, SBW, SBH)
    MaxSB.Move(CursorX, TopRow + SBH + Margin, SBW, SBH)
    SmallSB.Move(CursorX, TopRow + (2 * SBH) + (2 * Margin), SBW, SBH)
    LargeSB.Move(CursorX, TopRow + (3 * SBH) + (3 * Margin), SBW, SBH)
    Refresh
  End Sub

  Sub SetScrollBar()
    TheControl.Min = MinSB.Value
    MinValue.Text = MinSB.Value
    TheControl.Max = MaxSB.Value
    MaxValue.Text = MaxSB.Value
    TheControl.SmallChange = SmallSB.Value
    SmallValue.Text = SmallSB.Value
    TheControl.LargeChange = LargeSB.Value
    LargeValue.Text = LargeSB.Value
    TheControl.Refresh
  End Sub

  Sub SmallSB_Change()
    SetScrollBar
  End Sub

  Sub SmallSB_Scroll()
    SetScrollBar
  End Sub

  Sub TheScrollBar_Change()
    ValueLBL.Text = "Value: " & TheControl.Value
  End Sub

  Sub TheScrollBar_Scroll()
    TheScrollBar_Change
  End Sub

End Type

Type SamplesApp From Application
End Type

Type SampleComboBoxForm From SampleListComboBoxForm
  Dim TheCombo As New ComboBox
  Dim SelLengthLabel As New Label
  Dim SelLengthValue As New Label
  Dim SelStartLabel As New Label
  Dim SelStartValue As New Label
  Dim SelLengthSB As New ScrollBar
  Dim SelStartSB As New ScrollBar
  Dim Ignore As Integer
  Dim CBStyle As New ComboBox
  Dim LBLStyle As New Label

  ' METHODS for object: SampleComboBoxForm
  Sub CaptionTB_Change()
    dim F1 strictly as SampleControlForm
    F1 = Me
    F1.CaptionTB_Change
    Ignore = 1
    ' If SelStartSB.Value > Len(TheControl.Text) Then SelStartSB.Value = Len(TheControl.Text)
    ' If SelLengthSB.Value > Len(TheControl.Text) Then SelLengthSB.Value = Len(TheControl.Text)
    ' SelStartSB.Max = Len(TheControl.Text)
    ' SelLengthSB.Max = Len(TheControl.Text)
    SelLengthSB.Value = 0
    SelSBChange
    Ignore = 0
  End Sub

  Sub CBStyle_Click()
    TheControl.Style = CBStyle.ListIndex
    If TheControl.Style = 2 Then
      SelEnable("False")
    Else
      SelEnable("True")
    End If
  End Sub

  Sub Load()
    dim F1 strictly as SampleListComboBoxForm
    TheControl = TheCombo
    F1 = Me
    F1.Load
    CBStyle.Style = 2
    CBStyle.AddItem("0-DropdownCombo")
    CBStyle.AddItem("1-SimpleCombo")
    CBStyle.AddItem("2-DropdownList")
    CBStyle.ListIndex = 0
    ControlHeight = 7100
    SelStartLabel.Text = "SelStart"
    SelLengthLabel.Text = "SelLength"
    SelStartSB.Orientation = "Horizontal"
    SelStartSB.SmallChange = 1
    SelStartSB.LargeChange = 5
    SelLengthSB.Orientation = "Horizontal"
    SelLengthSB.SmallChange = 1
    SelLengthSB.LargeChange = 5
  End Sub

  Sub Resize()
    dim F1 strictly as SampleControlForm
    dim CHKW,CHKH as Integer
    dim BTNW,BTNH as Integer
    dim TBW,TBH as Integer
    dim LBLW,LBLH as Integer
    dim SBW,SBH as Integer
    dim Multiplier as single
    F1 = Me
    F1.Resize

    CursorX = Margin
    CursorY = StaticBottom + Margin
    CHKW = 1000
    CHKH = 225
    BTNW = 1400
    BTNH = 400
    TBW = 5500
    TBH = 400
    LBLW = 1500
    LBLH = 225
    SBW = 2500
    SBH = 225
    LBLListCount.Move(CursorX, CursorY, LBLW, LBLH)
    IncCX(LBLW)
    CHKSorted.Move(CursorX, CursorY, CHKW, CHKH)
    IncCX(CHKW)
    LBLListIndex.Move(CursorX, CursorY, LBLW, LBLH)
    IncCX(LBLW)
    SBListIndex.Move(CursorX, CursorY, SBW, SBH)
    LineFeed
    IncCY(CHKH)
    LBLText.Move(CursorX, CursorY, LBLW - 800, LBLH)
    IncCX(LBLW - 800)
    LBLTextValue.Move(CursorX, CursorY, LBLW * 10, LBLH)
    LineFeed
    IncCY(LBLH)
    IncCY(100)
    BTNAddItem.Move(CursorX, CursorY, BTNW, BTNH)
    IncCX(BTNW)
    BTNInsertItem.Move(CursorX, CursorY, BTNW, BTNH)
    IncCX(BTNW)
    BTNRemoveItem.Move(CursorX, CursorY, BTNW, BTNH)
    IncCX(BTNW)
    BTNClear.Move(CursorX, CursorY, BTNW, BTNH)
    LineFeed
    Multiplier = 1.2
    IncCY(BTNH)
    LBLItem.Move(CursorX, CursorY, LBLW * Multiplier, LBLH)
    IncCX(LBLW * Multiplier)
    TBItem.Move(CursorX, CursorY, TBW, TBH)
    LineFeed
    IncCY(TBH)
    InsertItemLBL.Move(CursorX, CursorY, LBLW * Multiplier, LBLH)
    IncCX(LBLW * Multiplier)
    InsertItemSB.Move(CursorX, CursorY, SBW, SBH)
    LineFeed
    IncCY(LBLH + 100)
    BTNQAdd1.Move(CursorX, CursorY, BTNW, BTNH)
    IncCX(BTNW)
    BTNQAdd2.Move(CursorX, CursorY, BTNW, BTNH)
    IncCX(BTNW)
    BTNQAdd3.Move(CursorX, CursorY, BTNW, BTNH)
    LineFeed
    IncCY(BTNH)
    LBLStyle.Move(CursorX, CursorY, 1000, 360)
    IncCX(1000)
    CBStyle.Move(CursorX, CursorY, 3000, 360)
    LineFeed
    IncCY(360)
    LBLW = 1005
    LBLH = 225
    SBW = 4000
    SelStartLabel.Move(CursorX, CursorY, LBLW, LBLH)
    IncCX(LBLW)
    SelStartValue.Move(CursorX, CursorY, LBLW, LBLH)
    IncCX(LBLW)
    SelStartSB.Move(CursorX, CursorY, SBW, SBH)
    LineFeed
    IncCY(LBLH)
    SelLengthLabel.Move(CursorX, CursorY, LBLW, LBLH)
    IncCX(LBLW)
    SelLengthValue.Move(CursorX, CursorY, LBLW, LBLH)
    IncCX(LBLW)
    SelLengthSB.Move(CursorX, CursorY, SBW, SBH)






    Refresh
  End Sub

  Sub SelEnable(Cond as String)
    SelLengthLabel.Enabled = Cond
    SelLengthSB.Enabled = Cond
    SelLengthValue.Enabled = Cond
    SelStartLabel.Enabled = Cond
    SelStartSB.Enabled = Cond
    SelStartValue.Enabled = Cond
  End Sub

  Sub SelLengthSB_Change()
    SelSBChange
  End Sub

  Sub SelLengthSB_Scroll()
    SelSBChange
  End Sub

  Sub SelSBChange()
    If TheControl Then
      Dim TextLen as integer
      TextLen = Len(TheControl.Text)
      SelStartSB.Max = TextLen - SelLengthSB.Value
      SelLengthSB.Max = TextLen - SelStartSB.Value
      SelStartValue.Caption = SelStartSB.Value
      SelLengthValue.Caption = SelLengthSB.Value
      TheControl.SelStart = SelStartSB.Value
      TheControl.SelLength = SelLengthSB.Value
      SelStartSB.Refresh
      SelLengthSB.Refresh
    End If
  End Sub

  Sub SelStartSB_Change()
    SelSBChange
  End Sub

  Sub SelStartSB_Scroll()
    SelSBChange
  End Sub

  Sub TheCombo_Change()
    LBLTextValue.Text = TheControl.Text
  End Sub

  Sub TheCombo_Click()
    SBListIndex.Value = TheControl.ListIndex
    LBLTextValue.Text = TheControl.Text
  End Sub

End Type

Type SampleOptionBoxForm From SampleControlForm
  Dim TheOption As New OptionButton
  Dim TheControl2 As New OptionButton
  Dim ControlValue As New CheckBox

  ' METHODS for object: SampleOptionBoxForm
  Sub ControlValue_Click()
    If ControlValue.Value = "Checked" Then
      TheControl.Value = True
    Else
      TheControl.Value = False
    End If
  End Sub

  Sub FixValue()
    ' TODO: ControlValueDisplay.Text = "Value: " & TheControl.Value
  End Sub

  Sub Load()
    dim F1 strictly as SampleControlForm
    TheControl = TheOption
    F1 = Me
    F1.Load
    ControlHeight = 3600
    ' TODO: ControlValueDisplay.Alignment = 1
  End Sub

  Sub Resize()
    dim F1 strictly as SampleControlForm
    F1 = Me
    F1.Resize
    TheControl2.Move(Margin, DisplayHeight - Margin - 300, 7000, 300)
    ControlValue.Move(Margin, StaticBottom + Margin - 40, 2000, 300)
    Refresh
  End Sub

  Sub TheControl2_Click()
    TheOption_Click
  End Sub

  Sub TheOption_Click()
    If TheControl.Value Then
      ControlValue.Value = "Checked"
    Else
      ControlValue.Value = "Unchecked"
    End If
  End Sub

End Type

Begin Code
' Reconstruction commands for object: SampleControlForm
'
  With SampleControlForm
    .Caption := "Control"
    .Move(5670, 2430, 7965, 4215)
    .TheControl := Nothing
    .DisplayHeight := 325
    .StaticBottom := 3445
    .Margin := 100
    .ControlHeight := 3200
    With .Divider1
      .ZOrder := 1
      .Move(100, 325, 7645, 20)
      .Max := 1
      .Value := 1
      .BarColor := 0
    End With  'SampleControlForm.Divider1
    With .BTNBackColor
      .Caption := "BackColor"
      .ZOrder := 2
      .Move(100, 425, 1400, 400)
    End With  'SampleControlForm.BTNBackColor
    With .BTNForeColor
      .Caption := "ForeColor"
      .ZOrder := 3
      .Move(1600, 425, 1400, 400)
    End With  'SampleControlForm.BTNForeColor
    With .BTNFont
      .Caption := "Font"
      .ZOrder := 4
      .Move(3100, 425, 1400, 400)
    End With  'SampleControlForm.BTNFont
    With .LeftLabel
      .Caption := "LeftLabel"
      .ZOrder := 5
      .Move(100, 1025, 1000, 225)
      .Alignment := "Right"
    End With  'SampleControlForm.LeftLabel
    With .TopLabel
      .Caption := "TopLabel"
      .ZOrder := 6
      .Move(100, 1350, 1000, 225)
      .Alignment := "Right"
    End With  'SampleControlForm.TopLabel
    With .WidthLabel
      .Caption := "WidthLabel"
      .ZOrder := 7
      .Move(100, 1675, 1000, 225)
      .Alignment := "Right"
    End With  'SampleControlForm.WidthLabel
    With .HeightLabel
      .Caption := "HeightLabel"
      .ZOrder := 8
      .Move(100, 2000, 1000, 225)
      .Alignment := "Right"
    End With  'SampleControlForm.HeightLabel
    With .LeftValue
      .Caption := "LeftValue"
      .ZOrder := 9
      .Move(1200, 1025, 1000, 225)
    End With  'SampleControlForm.LeftValue
    With .TopValue
      .Caption := "TopValue"
      .ZOrder := 10
      .Move(1200, 1350, 1000, 225)
    End With  'SampleControlForm.TopValue
    With .WidthValue
      .Caption := "WidthValue"
      .ZOrder := 11
      .Move(1200, 1675, 1000, 225)
    End With  'SampleControlForm.WidthValue
    With .HeightValue
      .Caption := "HeightValue"
      .ZOrder := 12
      .Move(1200, 2000, 1000, 225)
    End With  'SampleControlForm.HeightValue
    With .LeftSB
      .Caption := "LeftSB"
      .ZOrder := 13
      .Move(2300, 1025, 5445, 225)
      .Max := 3600
      .Orientation := "Horizontal"
      .Move(2300, 1025, 5445, 225)
    End With  'SampleControlForm.LeftSB
    With .TopSB
      .Caption := "TopSB"
      .ZOrder := 14
      .Move(2300, 1350, 5445, 225)
      .Max := 325
      .Orientation := "Horizontal"
      .Move(2300, 1350, 5445, 225)
    End With  'SampleControlForm.TopSB
    With .WidthSB
      .Caption := "WidthSB"
      .ZOrder := 15
      .Move(2300, 1675, 5445, 225)
      .Max := 3600
      .Orientation := "Horizontal"
      .Move(2300, 1675, 5445, 225)
    End With  'SampleControlForm.WidthSB
    With .HeightSB
      .Caption := "HeightSB"
      .ZOrder := 16
      .Move(2300, 2000, 5445, 225)
      .Max := 325
      .Orientation := "Horizontal"
      .Move(2300, 2000, 5445, 225)
    End With  'SampleControlForm.HeightSB
    With .CaptionLabel
      .Caption := "CaptionLabel"
      .ZOrder := 17
      .Move(100, 2825, 1000, 400)
    End With  'SampleControlForm.CaptionLabel
    With .CaptionTB
      .Caption := "CaptionTB"
      .ZOrder := 18
      .Move(1200, 2825, 6545, 400)
    End With  'SampleControlForm.CaptionTB
    With .Divider2
      .ZOrder := 19
      .Move(100, 3325, 7645, 20)
      .Value := 100
      .BarColor := 0
    End With  'SampleControlForm.Divider2
    With .ControlFont
      .FaceName := ""
      .Size := 0.000000
      .Bold := True
      .Italic := False
      .Strikethru := False
    End With  'SampleControlForm.ControlFont
    With .PickAFont
      .AllowSizeSelect := False
    End With  'SampleControlForm.PickAFont
    With .BTNEnabled
      .Caption := "Enabled"
      .ZOrder := 20
      .Move(100, 2425, 1300, 300)
    End With  'SampleControlForm.BTNEnabled
    With .BTNVisible
      .Caption := "Visible"
      .ZOrder := 21
      .Move(1500, 2425, 1300, 300)
    End With  'SampleControlForm.BTNVisible
    With .BTNFormBackColor
      .Caption := "Form BackClr"
      .ZOrder := 22
      .Move(4600, 425, 1400, 400)
    End With  'SampleControlForm.BTNFormBackColor
    With .BTNFormForeColor
      .Caption := "Form ForeClr"
      .ZOrder := 23
      .Move(6100, 425, 1400, 400)
    End With  'SampleControlForm.BTNFormForeColor
  End With  'SampleControlForm
' Reconstruction commands for object: SampleListComboBoxForm
'
  With SampleListComboBoxForm
    .Move(6150, 855, 8190, 9990)
    .DisplayHeight := 3500
    .StaticBottom := 6620
    .ControlHeight := 5800
    .CursorX := 3100
    .CursorY := 8795
    With .CHKSorted
      .Caption := "Sorted"
      .ZOrder := 24
      .Move(1700, 6720, 1000, 225)
    End With  'SampleListComboBoxForm.CHKSorted
    With .BTNQAdd1
      .Caption := "Quick Add 1"
      .ZOrder := 25
      .Move(100, 8795, 1400, 400)
    End With  'SampleListComboBoxForm.BTNQAdd1
    With .BTNQAdd2
      .Caption := "Quick Add 2"
      .ZOrder := 26
      .Move(1600, 8795, 1400, 400)
    End With  'SampleListComboBoxForm.BTNQAdd2
    With .BTNQAdd3
      .Caption := "Quick Add 3"
      .ZOrder := 27
      .Move(3100, 8795, 1400, 400)
    End With  'SampleListComboBoxForm.BTNQAdd3
    With .TBItem
      .ZOrder := 28
      .Move(2000, 7970, 5500, 400)
    End With  'SampleListComboBoxForm.TBItem
    With .BTNAddItem
      .Caption := "AddItem"
      .ZOrder := 29
      .Move(100, 7470, 1400, 400)
    End With  'SampleListComboBoxForm.BTNAddItem
    With .BTNInsertItem
      .Caption := "InsertItem"
      .ZOrder := 30
      .Move(1600, 7470, 1400, 400)
    End With  'SampleListComboBoxForm.BTNInsertItem
    With .InsertItemSB
      .ZOrder := 31
      .Move(2000, 8470, 2500, 225)
      .SmallChange := 1
      .LargeChange := 10
      .Orientation := "Horizontal"
      .Move(2000, 8470, 2500, 225)
    End With  'SampleListComboBoxForm.InsertItemSB
    With .InsertItemLBL
      .ZOrder := 32
      .Move(100, 8470, 1800, 225)
      .Alignment := "Right"
    End With  'SampleListComboBoxForm.InsertItemLBL
    With .BTNRemoveItem
      .Caption := "RemoveItem"
      .ZOrder := 33
      .Move(3100, 7470, 1400, 400)
    End With  'SampleListComboBoxForm.BTNRemoveItem
    With .LBLListCount
      .ZOrder := 34
      .Move(100, 6720, 1500, 225)
    End With  'SampleListComboBoxForm.LBLListCount
    With .LBLListIndex
      .ZOrder := 35
      .Move(2800, 6720, 1500, 225)
      .Alignment := "Right"
    End With  'SampleListComboBoxForm.LBLListIndex
    With .SBListIndex
      .ZOrder := 36
      .Move(4400, 6720, 2500, 225)
      .SmallChange := 1
      .LargeChange := 10
      .Min := -1
      .Orientation := "Horizontal"
      .Move(4400, 6720, 2500, 225)
    End With  'SampleListComboBoxForm.SBListIndex
    With .BTNClear
      .Caption := "Clear"
      .ZOrder := 37
      .Move(4600, 7470, 1400, 400)
    End With  'SampleListComboBoxForm.BTNClear
    With .LBLItem
      .ZOrder := 38
      .Move(100, 7970, 1800, 225)
      .Alignment := "Right"
    End With  'SampleListComboBoxForm.LBLItem
    With .LBLText
      .ZOrder := 39
      .Move(100, 7045, 1100, 225)
      .Alignment := "Right"
    End With  'SampleListComboBoxForm.LBLText
    With .LBLTextValue
      .ZOrder := 40
      .Move(1700, 7045, 15000, 225)
    End With  'SampleListComboBoxForm.LBLTextValue
    With .Divider1
      .Move(100, 3500, 7870, 20)
    End With  'SampleListComboBoxForm.Divider1
    With .BTNBackColor
      .Move(100, 3600, 1400, 400)
    End With  'SampleListComboBoxForm.BTNBackColor
    With .BTNForeColor
      .Move(1600, 3600, 1400, 400)
    End With  'SampleListComboBoxForm.BTNForeColor
    With .BTNFont
      .Move(3100, 3600, 1400, 400)
    End With  'SampleListComboBoxForm.BTNFont
    With .LeftLabel
      .Move(100, 4200, 1000, 225)
    End With  'SampleListComboBoxForm.LeftLabel
    With .TopLabel
      .Move(100, 4525, 1000, 225)
    End With  'SampleListComboBoxForm.TopLabel
    With .WidthLabel
      .Move(100, 4850, 1000, 225)
    End With  'SampleListComboBoxForm.WidthLabel
    With .HeightLabel
      .Move(100, 5175, 1000, 225)
    End With  'SampleListComboBoxForm.HeightLabel
    With .LeftValue
      .Move(1200, 4200, 1000, 225)
    End With  'SampleListComboBoxForm.LeftValue
    With .TopValue
      .Move(1200, 4525, 1000, 225)
    End With  'SampleListComboBoxForm.TopValue
    With .WidthValue
      .Move(1200, 4850, 1000, 225)
    End With  'SampleListComboBoxForm.WidthValue
    With .HeightValue
      .Move(1200, 5175, 1000, 225)
    End With  'SampleListComboBoxForm.HeightValue
    With .LeftSB
      .Move(2300, 4200, 5670, 225)
      .Max := 6570
      .Move(2300, 4200, 5670, 225)
    End With  'SampleListComboBoxForm.LeftSB
    With .TopSB
      .Move(2300, 4525, 5670, 225)
      .Max := 3100
      .Move(2300, 4525, 5670, 225)
    End With  'SampleListComboBoxForm.TopSB
    With .WidthSB
      .Move(2300, 4850, 5670, 225)
      .Max := 4785
      .Move(2300, 4850, 5670, 225)
    End With  'SampleListComboBoxForm.WidthSB
    With .HeightSB
      .Move(2300, 5175, 5670, 225)
      .Max := 1950
      .Move(2300, 5175, 5670, 225)
    End With  'SampleListComboBoxForm.HeightSB
    With .CaptionLabel
      .Move(100, 6000, 1000, 400)
    End With  'SampleListComboBoxForm.CaptionLabel
    With .CaptionTB
      .Move(1200, 6000, 6770, 400)
    End With  'SampleListComboBoxForm.CaptionTB
    With .Divider2
      .Move(100, 6500, 7870, 20)
    End With  'SampleListComboBoxForm.Divider2
    With .ControlFont
      .FaceName := ""
      .Size := 0.000000
      .Bold := True
      .Italic := False
      .Strikethru := False
    End With  'SampleListComboBoxForm.ControlFont
    With .PickAFont
      .AllowSizeSelect := True
    End With  'SampleListComboBoxForm.PickAFont
    With .BTNEnabled
      .Move(100, 5600, 1300, 300)
    End With  'SampleListComboBoxForm.BTNEnabled
    With .BTNVisible
      .Move(1500, 5600, 1300, 300)
    End With  'SampleListComboBoxForm.BTNVisible
    With .BTNFormBackColor
      .Move(4600, 3600, 1400, 400)
    End With  'SampleListComboBoxForm.BTNFormBackColor
    With .BTNFormForeColor
      .Move(6100, 3600, 1400, 400)
    End With  'SampleListComboBoxForm.BTNFormForeColor
  End With  'SampleListComboBoxForm
' Reconstruction commands for object: SampleListBoxForm
'
  With SampleListBoxForm
    .Caption := "List Box"
    .Move(6150, 855, 8190, 9990)
    .TheControl := SampleListBoxForm.TheListBox
    With .TheListBox
      .ZOrder := 41
      .Move(3285, 1550, 1500, 270)
    End With  'SampleListBoxForm.TheListBox
    With .CHKSorted
      .ZOrder := 1
      .Move(1700, 6720, 1000, 225)
    End With  'SampleListBoxForm.CHKSorted
    With .BTNQAdd1
      .ZOrder := 2
      .Move(100, 8795, 1400, 400)
    End With  'SampleListBoxForm.BTNQAdd1
    With .BTNQAdd2
      .ZOrder := 3
      .Move(1600, 8795, 1400, 400)
    End With  'SampleListBoxForm.BTNQAdd2
    With .BTNQAdd3
      .ZOrder := 4
      .Move(3100, 8795, 1400, 400)
    End With  'SampleListBoxForm.BTNQAdd3
    With .TBItem
      .ZOrder := 5
      .Move(2000, 7970, 5500, 400)
    End With  'SampleListBoxForm.TBItem
    With .BTNAddItem
      .ZOrder := 6
      .Move(100, 7470, 1400, 400)
    End With  'SampleListBoxForm.BTNAddItem
    With .BTNInsertItem
      .ZOrder := 7
      .Move(1600, 7470, 1400, 400)
    End With  'SampleListBoxForm.BTNInsertItem
    With .InsertItemSB
      .ZOrder := 8
      .Move(2000, 8470, 2500, 225)
      .Max := 0
      .Move(2000, 8470, 2500, 225)
    End With  'SampleListBoxForm.InsertItemSB
    With .InsertItemLBL
      .Caption := "Insert/Remove Index: 0"
      .ZOrder := 9
      .Move(100, 8470, 1800, 225)
    End With  'SampleListBoxForm.InsertItemLBL
    With .BTNRemoveItem
      .Enabled := False
      .ZOrder := 10
      .Move(3100, 7470, 1400, 400)
    End With  'SampleListBoxForm.BTNRemoveItem
    With .LBLListCount
      .ZOrder := 11
      .Move(100, 6720, 1500, 225)
    End With  'SampleListBoxForm.LBLListCount
    With .LBLListIndex
      .Caption := "ListIndex: -1"
      .ZOrder := 12
      .Move(2800, 6720, 1500, 225)
    End With  'SampleListBoxForm.LBLListIndex
    With .SBListIndex
      .ZOrder := 13
      .Move(4400, 6720, 2500, 225)
      .Max := -1
      .Move(4400, 6720, 2500, 225)
    End With  'SampleListBoxForm.SBListIndex
    With .BTNClear
      .ZOrder := 14
      .Move(4600, 7470, 1400, 400)
    End With  'SampleListBoxForm.BTNClear
    With .LBLItem
      .ZOrder := 15
      .Move(100, 7970, 1800, 225)
    End With  'SampleListBoxForm.LBLItem
    With .LBLText
      .ZOrder := 16
      .Move(100, 7045, 1100, 225)
    End With  'SampleListBoxForm.LBLText
    With .LBLTextValue
      .ZOrder := 17
      .Move(1700, 7045, 15000, 225)
    End With  'SampleListBoxForm.LBLTextValue
    With .Divider1
      .ZOrder := 18
      .Move(100, 3500, 7870, 20)
    End With  'SampleListBoxForm.Divider1
    With .BTNBackColor
      .ZOrder := 19
      .Move(100, 3600, 1400, 400)
    End With  'SampleListBoxForm.BTNBackColor
    With .BTNForeColor
      .ZOrder := 20
      .Move(1600, 3600, 1400, 400)
    End With  'SampleListBoxForm.BTNForeColor
    With .BTNFont
      .ZOrder := 21
      .Move(3100, 3600, 1400, 400)
    End With  'SampleListBoxForm.BTNFont
    With .LeftLabel
      .ZOrder := 22
      .Move(100, 4200, 1000, 225)
    End With  'SampleListBoxForm.LeftLabel
    With .TopLabel
      .ZOrder := 23
      .Move(100, 4525, 1000, 225)
    End With  'SampleListBoxForm.TopLabel
    With .WidthLabel
      .ZOrder := 24
      .Move(100, 4850, 1000, 225)
    End With  'SampleListBoxForm.WidthLabel
    With .HeightLabel
      .ZOrder := 25
      .Move(100, 5175, 1000, 225)
    End With  'SampleListBoxForm.HeightLabel
    With .LeftValue
      .ZOrder := 26
      .Move(1200, 4200, 1000, 225)
    End With  'SampleListBoxForm.LeftValue
    With .TopValue
      .ZOrder := 27
      .Move(1200, 4525, 1000, 225)
    End With  'SampleListBoxForm.TopValue
    With .WidthValue
      .ZOrder := 28
      .Move(1200, 4850, 1000, 225)
    End With  'SampleListBoxForm.WidthValue
    With .HeightValue
      .ZOrder := 29
      .Move(1200, 5175, 1000, 225)
    End With  'SampleListBoxForm.HeightValue
    With .LeftSB
      .ZOrder := 30
      .Move(2300, 4200, 5670, 225)
      .Move(2300, 4200, 5670, 225)
    End With  'SampleListBoxForm.LeftSB
    With .TopSB
      .ZOrder := 31
      .Move(2300, 4525, 5670, 225)
      .Move(2300, 4525, 5670, 225)
    End With  'SampleListBoxForm.TopSB
    With .WidthSB
      .ZOrder := 32
      .Move(2300, 4850, 5670, 225)
      .Move(2300, 4850, 5670, 225)
    End With  'SampleListBoxForm.WidthSB
    With .HeightSB
      .ZOrder := 33
      .Move(2300, 5175, 5670, 225)
      .Move(2300, 5175, 5670, 225)
    End With  'SampleListBoxForm.HeightSB
    With .CaptionLabel
      .ZOrder := 34
      .Move(100, 6000, 1000, 400)
    End With  'SampleListBoxForm.CaptionLabel
    With .CaptionTB
      .ZOrder := 35
      .Move(1200, 6000, 6770, 400)
    End With  'SampleListBoxForm.CaptionTB
    With .Divider2
      .ZOrder := 36
      .Move(100, 6500, 7870, 20)
    End With  'SampleListBoxForm.Divider2
    With .ControlFont
      .FaceName := ""
      .Size := 0.000000
      .Bold := True
      .Italic := False
      .Strikethru := False
    End With  'SampleListBoxForm.ControlFont
    With .PickAFont
    End With  'SampleListBoxForm.PickAFont
    With .BTNEnabled
      .ZOrder := 37
      .Move(100, 5600, 1300, 300)
    End With  'SampleListBoxForm.BTNEnabled
    With .BTNVisible
      .ZOrder := 38
      .Move(1500, 5600, 1300, 300)
    End With  'SampleListBoxForm.BTNVisible
    With .BTNFormBackColor
      .ZOrder := 39
      .Move(4600, 3600, 1400, 400)
    End With  'SampleListBoxForm.BTNFormBackColor
    With .BTNFormForeColor
      .ZOrder := 40
      .Move(6100, 3600, 1400, 400)
    End With  'SampleListBoxForm.BTNFormForeColor
  End With  'SampleListBoxForm
' Reconstruction commands for object: SamplePickerForm
'
  With SamplePickerForm
    .Caption := "Control Property Samples"
    .Move(15, 1875, 3705, 3915)
    .SampleDir := "W:\bootcamp\advanced\controls\"
    .SampleName := "controls"
    With .List
      .BackColor := 12632256
      .ZOrder := 1
      .Move(0, 0, 3585, 3225)
      .RootObject := SampleControlForm
    End With  'SamplePickerForm.List
    With .helpfile
      .FileName := "W:\bootcamp\advanced\controls\controls.hlp"
    End With  'SamplePickerForm.helpfile
  End With  'SamplePickerForm
' Reconstruction commands for object: SampleTextBoxForm
'
  With SampleTextBoxForm
    .Caption := "TextBox"
    .Move(6150, 855, 8190, 9990)
    .TheControl := SampleTextBoxForm.TheText
    .DisplayHeight := 4715
    .StaticBottom := 7835
    .ControlHeight := 4870
    .ignore := 0
    .Ignore := 0
    With .TheText
      .ForeColor := 0
      .Font := SampleTextBoxForm.ControlFont
      .ZOrder := 24
      .Move(3285, 2157, 1500, 400)
      .WordWrap := True
      .MultiLine := True
    End With  'SampleTextBoxForm.TheText
    With .CBAlignment
      .ZOrder := 25
      .Move(4800, 7935, 1995, 360)
      .Style := "DropdownList"
    End With  'SampleTextBoxForm.CBAlignment
    With .ChkMultiLine
      .Caption := "MultiLine"
      .ZOrder := 26
      .Move(100, 7935, 3000, 300)
    End With  'SampleTextBoxForm.ChkMultiLine
    With .ChkWordWrap
      .Caption := "WordWrap"
      .ZOrder := 27
      .Move(100, 8335, 3000, 300)
    End With  'SampleTextBoxForm.ChkWordWrap
    With .SelLengthLabel
      .Caption := "SelLength"
      .ZOrder := 28
      .Move(100, 9260, 1500, 225)
    End With  'SampleTextBoxForm.SelLengthLabel
    With .SelLengthValue
      .Caption := "0"
      .ZOrder := 29
      .Move(1700, 9260, 1005, 225)
    End With  'SampleTextBoxForm.SelLengthValue
    With .SelStartLabel
      .Caption := "SelStart"
      .ZOrder := 30
      .Move(100, 8935, 1500, 225)
    End With  'SampleTextBoxForm.SelStartLabel
    With .SelStartValue
      .Caption := "0"
      .ZOrder := 31
      .Move(1700, 8935, 1005, 225)
    End With  'SampleTextBoxForm.SelStartValue
    With .SelLengthSB
      .Caption := "SelLengthSB"
      .ZOrder := 32
      .Move(2805, 9260, 5165, 225)
      .SmallChange := 1
      .LargeChange := 5
      .Max := 0
      .Orientation := "Horizontal"
      .Move(2805, 9260, 5165, 225)
    End With  'SampleTextBoxForm.SelLengthSB
    With .SelStartSB
      .Caption := "SelStartSB"
      .ZOrder := 33
      .Move(2805, 8935, 5165, 225)
      .SmallChange := 1
      .LargeChange := 5
      .Max := 0
      .Orientation := "Horizontal"
      .Move(2805, 8935, 5165, 225)
    End With  'SampleTextBoxForm.SelStartSB
    With .CBScrollBars
      .ZOrder := 34
      .Move(4800, 8335, 1995, 360)
      .Style := "DropdownList"
    End With  'SampleTextBoxForm.CBScrollBars
    With .AlignmentLBL
      .Caption := "Alignment"
      .ZOrder := 35
      .Move(3200, 7935, 1500, 225)
    End With  'SampleTextBoxForm.AlignmentLBL
    With .ScrollBarLBL
      .Caption := "Scroll Bars"
      .ZOrder := 36
      .Move(3200, 8335, 1500, 225)
    End With  'SampleTextBoxForm.ScrollBarLBL
    With .Divider1
      .Move(100, 4715, 7870, 20)
    End With  'SampleTextBoxForm.Divider1
    With .BTNBackColor
      .Move(100, 4815, 1400, 400)
    End With  'SampleTextBoxForm.BTNBackColor
    With .BTNForeColor
      .Move(1600, 4815, 1400, 400)
    End With  'SampleTextBoxForm.BTNForeColor
    With .BTNFont
      .Move(3100, 4815, 1400, 400)
    End With  'SampleTextBoxForm.BTNFont
    With .LeftLabel
      .Move(100, 5415, 1000, 225)
    End With  'SampleTextBoxForm.LeftLabel
    With .TopLabel
      .Move(100, 5740, 1000, 225)
    End With  'SampleTextBoxForm.TopLabel
    With .WidthLabel
      .Move(100, 6065, 1000, 225)
    End With  'SampleTextBoxForm.WidthLabel
    With .HeightLabel
      .Move(100, 6390, 1000, 225)
    End With  'SampleTextBoxForm.HeightLabel
    With .LeftValue
      .Move(1200, 5415, 1000, 225)
    End With  'SampleTextBoxForm.LeftValue
    With .TopValue
      .Move(1200, 5740, 1000, 225)
    End With  'SampleTextBoxForm.TopValue
    With .WidthValue
      .Move(1200, 6065, 1000, 225)
    End With  'SampleTextBoxForm.WidthValue
    With .HeightValue
      .Move(1200, 6390, 1000, 225)
    End With  'SampleTextBoxForm.HeightValue
    With .LeftSB
      .Move(2300, 5415, 5670, 225)
      .Max := 6570
      .Move(2300, 5415, 5670, 225)
    End With  'SampleTextBoxForm.LeftSB
    With .TopSB
      .Move(2300, 5740, 5670, 225)
      .Max := 4315
      .Move(2300, 5740, 5670, 225)
    End With  'SampleTextBoxForm.TopSB
    With .WidthSB
      .Move(2300, 6065, 5670, 225)
      .Max := 4785
      .Move(2300, 6065, 5670, 225)
    End With  'SampleTextBoxForm.WidthSB
    With .HeightSB
      .Move(2300, 6390, 5670, 225)
      .Max := 2558
      .Move(2300, 6390, 5670, 225)
    End With  'SampleTextBoxForm.HeightSB
    With .CaptionLabel
      .Move(100, 7215, 1000, 400)
    End With  'SampleTextBoxForm.CaptionLabel
    With .CaptionTB
      .Move(1200, 7215, 6770, 400)
    End With  'SampleTextBoxForm.CaptionTB
    With .Divider2
      .Move(100, 7715, 7870, 20)
    End With  'SampleTextBoxForm.Divider2
    With .ControlFont
      .FaceName := ""
      .Size := 20.000000
      .Bold := False
      .Italic := False
      .Strikethru := False
    End With  'SampleTextBoxForm.ControlFont
    With .PickAFont
      .AllowSizeSelect := True
    End With  'SampleTextBoxForm.PickAFont
    With .BTNEnabled
      .Move(100, 6815, 1300, 300)
    End With  'SampleTextBoxForm.BTNEnabled
    With .BTNVisible
      .Move(1500, 6815, 1300, 300)
    End With  'SampleTextBoxForm.BTNVisible
    With .BTNFormBackColor
      .Move(4600, 4815, 1400, 400)
    End With  'SampleTextBoxForm.BTNFormBackColor
    With .BTNFormForeColor
      .Move(6100, 4815, 1400, 400)
    End With  'SampleTextBoxForm.BTNFormForeColor
  End With  'SampleTextBoxForm
' Reconstruction commands for object: SampleLabelForm
'
  With SampleLabelForm
    .Caption := "Label"
    .Move(6150, 855, 8190, 9990)
    .TheControl := SampleLabelForm.TheLabel
    .DisplayHeight := 5385
    .StaticBottom := 8505
    .ControlHeight := 4200
    With .TheLabel
      .BackColor := 65535
      .ForeColor := 8388608
      .Font := SampleLabelForm.ControlFont
      .ZOrder := 24
      .Move(3285, 2492, 1500, 400)
      .BorderStyle := "Fixed Single"
    End With  'SampleLabelForm.TheLabel
    With .ChkBorderToggle
      .Caption := "Border"
      .ZOrder := 25
      .Move(100, 8605, 4300, 350)
    End With  'SampleLabelForm.ChkBorderToggle
    With .ChkWordWrapToggle
      .Caption := "WordWrap"
      .ZOrder := 26
      .Move(100, 9055, 4300, 350)
    End With  'SampleLabelForm.ChkWordWrapToggle
    With .CBAlignment
      .ZOrder := 27
      .Move(4500, 8605, 3000, 360)
      .Style := "DropdownList"
    End With  'SampleLabelForm.CBAlignment
    With .Divider1
      .Move(100, 5385, 7870, 20)
    End With  'SampleLabelForm.Divider1
    With .BTNBackColor
      .Move(100, 5485, 1400, 400)
    End With  'SampleLabelForm.BTNBackColor
    With .BTNForeColor
      .Move(1600, 5485, 1400, 400)
    End With  'SampleLabelForm.BTNForeColor
    With .BTNFont
      .Move(3100, 5485, 1400, 400)
    End With  'SampleLabelForm.BTNFont
    With .LeftLabel
      .Move(100, 6085, 1000, 225)
    End With  'SampleLabelForm.LeftLabel
    With .TopLabel
      .Move(100, 6410, 1000, 225)
    End With  'SampleLabelForm.TopLabel
    With .WidthLabel
      .Move(100, 6735, 1000, 225)
    End With  'SampleLabelForm.WidthLabel
    With .HeightLabel
      .Move(100, 7060, 1000, 225)
    End With  'SampleLabelForm.HeightLabel
    With .LeftValue
      .Move(1200, 6085, 1000, 225)
    End With  'SampleLabelForm.LeftValue
    With .TopValue
      .Move(1200, 6410, 1000, 225)
    End With  'SampleLabelForm.TopValue
    With .WidthValue
      .Move(1200, 6735, 1000, 225)
    End With  'SampleLabelForm.WidthValue
    With .HeightValue
      .Move(1200, 7060, 1000, 225)
    End With  'SampleLabelForm.HeightValue
    With .LeftSB
      .Move(2300, 6085, 5670, 225)
      .Max := 6570
      .Move(2300, 6085, 5670, 225)
    End With  'SampleLabelForm.LeftSB
    With .TopSB
      .Move(2300, 6410, 5670, 225)
      .Max := 4985
      .Move(2300, 6410, 5670, 225)
    End With  'SampleLabelForm.TopSB
    With .WidthSB
      .Move(2300, 6735, 5670, 225)
      .Max := 4785
      .Move(2300, 6735, 5670, 225)
    End With  'SampleLabelForm.WidthSB
    With .HeightSB
      .Move(2300, 7060, 5670, 225)
      .Max := 2893
      .Move(2300, 7060, 5670, 225)
    End With  'SampleLabelForm.HeightSB
    With .CaptionLabel
      .Move(100, 7885, 1000, 400)
    End With  'SampleLabelForm.CaptionLabel
    With .CaptionTB
      .Move(1200, 7885, 6770, 400)
    End With  'SampleLabelForm.CaptionTB
    With .Divider2
      .Move(100, 8385, 7870, 20)
    End With  'SampleLabelForm.Divider2
    With .ControlFont
      .FaceName := "Lucida Console"
      .Size := 24.000000
      .Bold := False
      .Italic := True
      .Strikethru := False
    End With  'SampleLabelForm.ControlFont
    With .PickAFont
      .AllowSizeSelect := True
    End With  'SampleLabelForm.PickAFont
    With .BTNEnabled
      .Move(100, 7485, 1300, 300)
    End With  'SampleLabelForm.BTNEnabled
    With .BTNVisible
      .Move(1500, 7485, 1300, 300)
    End With  'SampleLabelForm.BTNVisible
    With .BTNFormBackColor
      .Move(4600, 5485, 1400, 400)
    End With  'SampleLabelForm.BTNFormBackColor
    With .BTNFormForeColor
      .Move(6100, 5485, 1400, 400)
    End With  'SampleLabelForm.BTNFormForeColor
  End With  'SampleLabelForm
' Reconstruction commands for object: SampleCheckBoxForm
'
  With SampleCheckBoxForm
    .Caption := "Check Box"
    .Move(6150, 855, 8190, 9990)
    .TheControl := SampleCheckBoxForm.TheCheckBox
    .DisplayHeight := 5700
    .StaticBottom := 8820
    .ControlHeight := 3600
    With .TheCheckBox
      .ZOrder := 24
      .Move(3285, 2650, 1500, 400)
    End With  'SampleCheckBoxForm.TheCheckBox
    With .ControlValue
      .Caption := "Value"
      .ZOrder := 25
      .Move(100, 8880, 2000, 300)
    End With  'SampleCheckBoxForm.ControlValue
    With .Divider1
      .Move(100, 5700, 7870, 20)
    End With  'SampleCheckBoxForm.Divider1
    With .BTNBackColor
      .Move(100, 5800, 1400, 400)
    End With  'SampleCheckBoxForm.BTNBackColor
    With .BTNForeColor
      .Move(1600, 5800, 1400, 400)
    End With  'SampleCheckBoxForm.BTNForeColor
    With .BTNFont
      .Move(3100, 5800, 1400, 400)
    End With  'SampleCheckBoxForm.BTNFont
    With .LeftLabel
      .Move(100, 6400, 1000, 225)
    End With  'SampleCheckBoxForm.LeftLabel
    With .TopLabel
      .Move(100, 6725, 1000, 225)
    End With  'SampleCheckBoxForm.TopLabel
    With .WidthLabel
      .Move(100, 7050, 1000, 225)
    End With  'SampleCheckBoxForm.WidthLabel
    With .HeightLabel
      .Move(100, 7375, 1000, 225)
    End With  'SampleCheckBoxForm.HeightLabel
    With .LeftValue
      .Move(1200, 6400, 1000, 225)
    End With  'SampleCheckBoxForm.LeftValue
    With .TopValue
      .Move(1200, 6725, 1000, 225)
    End With  'SampleCheckBoxForm.TopValue
    With .WidthValue
      .Move(1200, 7050, 1000, 225)
    End With  'SampleCheckBoxForm.WidthValue
    With .HeightValue
      .Move(1200, 7375, 1000, 225)
    End With  'SampleCheckBoxForm.HeightValue
    With .LeftSB
      .Move(2300, 6400, 5670, 225)
      .Max := 6570
      .Move(2300, 6400, 5670, 225)
    End With  'SampleCheckBoxForm.LeftSB
    With .TopSB
      .Move(2300, 6725, 5670, 225)
      .Max := 5300
      .Move(2300, 6725, 5670, 225)
    End With  'SampleCheckBoxForm.TopSB
    With .WidthSB
      .Move(2300, 7050, 5670, 225)
      .Max := 4785
      .Move(2300, 7050, 5670, 225)
    End With  'SampleCheckBoxForm.WidthSB
    With .HeightSB
      .Move(2300, 7375, 5670, 225)
      .Max := 3050
      .Move(2300, 7375, 5670, 225)
    End With  'SampleCheckBoxForm.HeightSB
    With .CaptionLabel
      .Move(100, 8200, 1000, 400)
    End With  'SampleCheckBoxForm.CaptionLabel
    With .CaptionTB
      .Move(1200, 8200, 6770, 400)
    End With  'SampleCheckBoxForm.CaptionTB
    With .Divider2
      .Move(100, 8700, 7870, 20)
    End With  'SampleCheckBoxForm.Divider2
    With .ControlFont
      .FaceName := ""
      .Size := 0.000000
      .Bold := True
      .Italic := False
      .Strikethru := False
    End With  'SampleCheckBoxForm.ControlFont
    With .PickAFont
      .AllowSizeSelect := True
    End With  'SampleCheckBoxForm.PickAFont
    With .BTNEnabled
      .Move(100, 7800, 1300, 300)
    End With  'SampleCheckBoxForm.BTNEnabled
    With .BTNVisible
      .Move(1500, 7800, 1300, 300)
    End With  'SampleCheckBoxForm.BTNVisible
    With .BTNFormBackColor
      .Move(4600, 5800, 1400, 400)
    End With  'SampleCheckBoxForm.BTNFormBackColor
    With .BTNFormForeColor
      .Move(6100, 5800, 1400, 400)
    End With  'SampleCheckBoxForm.BTNFormForeColor
  End With  'SampleCheckBoxForm
' Reconstruction commands for object: SampleButtonForm
'
  With SampleButtonForm
    .Caption := "Button"
    .Move(6150, 855, 8190, 9990)
    .TheControl := SampleButtonForm.TheButton
    .DisplayHeight := 6180
    .StaticBottom := 9300
    .ControlHeight := 3120
    With .TheButton
      .Font := SampleButtonForm.ControlFont
      .ZOrder := 24
      .Move(3285, 2890, 1500, 400)
    End With  'SampleButtonForm.TheButton
    With .Divider1
      .Caption := "Gauge1"
      .Move(100, 6180, 7870, 20)
    End With  'SampleButtonForm.Divider1
    With .BTNBackColor
      .Move(100, 6280, 1400, 400)
    End With  'SampleButtonForm.BTNBackColor
    With .BTNForeColor
      .Move(1600, 6280, 1400, 400)
    End With  'SampleButtonForm.BTNForeColor
    With .BTNFont
      .Move(3100, 6280, 1400, 400)
    End With  'SampleButtonForm.BTNFont
    With .LeftLabel
      .Caption := "Label1"
      .Move(100, 6880, 1000, 225)
    End With  'SampleButtonForm.LeftLabel
    With .TopLabel
      .Caption := "Label2"
      .Move(100, 7205, 1000, 225)
    End With  'SampleButtonForm.TopLabel
    With .WidthLabel
      .Caption := "Label3"
      .Move(100, 7530, 1000, 225)
    End With  'SampleButtonForm.WidthLabel
    With .HeightLabel
      .Caption := "Label4"
      .Move(100, 7855, 1000, 225)
    End With  'SampleButtonForm.HeightLabel
    With .LeftValue
      .Caption := "Label5"
      .Move(1200, 6880, 1000, 225)
    End With  'SampleButtonForm.LeftValue
    With .TopValue
      .Caption := "Label6"
      .Move(1200, 7205, 1000, 225)
    End With  'SampleButtonForm.TopValue
    With .WidthValue
      .Caption := "Label7"
      .Move(1200, 7530, 1000, 225)
    End With  'SampleButtonForm.WidthValue
    With .HeightValue
      .Caption := "Label8"
      .Move(1200, 7855, 1000, 225)
    End With  'SampleButtonForm.HeightValue
    With .LeftSB
      .Caption := "ScrollBar1"
      .Move(2300, 6880, 5670, 225)
      .Max := 6570
      .Move(2300, 6880, 5670, 225)
    End With  'SampleButtonForm.LeftSB
    With .TopSB
      .Caption := "ScrollBar2"
      .Move(2300, 7205, 5670, 225)
      .Max := 5780
      .Move(2300, 7205, 5670, 225)
    End With  'SampleButtonForm.TopSB
    With .WidthSB
      .Caption := "ScrollBar3"
      .Move(2300, 7530, 5670, 225)
      .Max := 4785
      .Move(2300, 7530, 5670, 225)
    End With  'SampleButtonForm.WidthSB
    With .HeightSB
      .Caption := "ScrollBar4"
      .Move(2300, 7855, 5670, 225)
      .Max := 3290
      .Move(2300, 7855, 5670, 225)
    End With  'SampleButtonForm.HeightSB
    With .CaptionLabel
      .Caption := "Label1"
      .Move(100, 8680, 1000, 400)
    End With  'SampleButtonForm.CaptionLabel
    With .CaptionTB
      .Caption := "TextBox1"
      .Move(1200, 8680, 6770, 400)
    End With  'SampleButtonForm.CaptionTB
    With .Divider2
      .Caption := "Gauge1"
      .Move(100, 9180, 7870, 20)
    End With  'SampleButtonForm.Divider2
    With .ControlFont
      .FaceName := ""
      .Size := 15.000000
      .Bold := True
      .Italic := False
      .Strikethru := False
    End With  'SampleButtonForm.ControlFont
    With .PickAFont
      .AllowSizeSelect := True
    End With  'SampleButtonForm.PickAFont
    With .BTNEnabled
      .Move(100, 8280, 1300, 300)
    End With  'SampleButtonForm.BTNEnabled
    With .BTNVisible
      .Move(1500, 8280, 1300, 300)
    End With  'SampleButtonForm.BTNVisible
    With .BTNFormBackColor
      .Move(4600, 6280, 1400, 400)
    End With  'SampleButtonForm.BTNFormBackColor
    With .BTNFormForeColor
      .Move(6100, 6280, 1400, 400)
    End With  'SampleButtonForm.BTNFormForeColor
  End With  'SampleButtonForm
' Reconstruction commands for object: SampleScrollBarForm
'
  With SampleScrollBarForm
    .Caption := "Scroll Bar"
    .Move(6150, 855, 8190, 9990)
    .TheControl := SampleScrollBarForm.TheScrollBar
    .DisplayHeight := 4300
    .StaticBottom := 7420
    .ControlHeight := 5000
    With .TheScrollBar
      .BackColor := 65535
      .ForeColor := 16711680
      .ZOrder := 39
      .Move(3285, 1305, 1500, 400)
      .SmallChange := 0
      .LargeChange := 0
      .Min := 20147
      .Max := -13233
      .Orientation := "Horizontal"
      .Move(3285, 1305, 1500, 400)
    End With  'SampleScrollBarForm.TheScrollBar
    With .MinLBL
      .Caption := "MinLBL"
      .ZOrder := 24
      .Move(100, 7845, 1400, 225)
      .Alignment := "Right"
    End With  'SampleScrollBarForm.MinLBL
    With .MinValue
      .Caption := "MinValue"
      .ZOrder := 25
      .Move(1600, 7845, 800, 225)
    End With  'SampleScrollBarForm.MinValue
    With .MaxLBL
      .Caption := "MaxLBL"
      .ZOrder := 26
      .Move(100, 8170, 1400, 225)
      .Alignment := "Right"
    End With  'SampleScrollBarForm.MaxLBL
    With .MaxValue
      .Caption := "MaxValue"
      .ZOrder := 27
      .Move(1600, 8170, 800, 225)
    End With  'SampleScrollBarForm.MaxValue
    With .SmallLBL
      .Caption := "SmallLBL"
      .ZOrder := 28
      .Move(100, 8495, 1400, 225)
      .Alignment := "Right"
    End With  'SampleScrollBarForm.SmallLBL
    With .SmallValue
      .Caption := "SmallValue"
      .ZOrder := 29
      .Move(1600, 8495, 800, 225)
    End With  'SampleScrollBarForm.SmallValue
    With .LargeLBL
      .Caption := "Lar"
      .ZOrder := 30
      .Move(100, 8820, 1400, 225)
      .Alignment := "Right"
    End With  'SampleScrollBarForm.LargeLBL
    With .LargeValue
      .Caption := "LargeValue"
      .ZOrder := 31
      .Move(1600, 8820, 800, 225)
    End With  'SampleScrollBarForm.LargeValue
    With .MinSB
      .Caption := "MinSB"
      .ZOrder := 32
      .Move(2500, 7845, 5470, 225)
      .Min := -32768
      .Orientation := "Horizontal"
      .Move(2500, 7845, 5470, 225)
    End With  'SampleScrollBarForm.MinSB
    With .MaxSB
      .Caption := "MaxSB"
      .ZOrder := 33
      .Move(2500, 8170, 5470, 225)
      .Min := -32768
      .Orientation := "Horizontal"
      .Move(2500, 8170, 5470, 225)
    End With  'SampleScrollBarForm.MaxSB
    With .SmallSB
      .Caption := "SmallSB"
      .ZOrder := 34
      .Move(2500, 8495, 5470, 225)
      .Min := -32768
      .Orientation := "Horizontal"
      .Move(2500, 8495, 5470, 225)
    End With  'SampleScrollBarForm.SmallSB
    With .LargeSB
      .Caption := "LargeSB"
      .ZOrder := 35
      .Move(2500, 8820, 5470, 225)
      .Min := -32768
      .Orientation := "Horizontal"
      .Move(2500, 8820, 5470, 225)
    End With  'SampleScrollBarForm.LargeSB
    With .ValueLBL
      .Caption := "Value: "
      .ZOrder := 36
      .Move(100, 7520, 1400, 225)
    End With  'SampleScrollBarForm.ValueLBL
    With .LBLStyle
      .Caption := "Style:"
      .ZOrder := 37
      .Move(1600, 7520, 1400, 225)
      .Alignment := "Right"
    End With  'SampleScrollBarForm.LBLStyle
    With .CBStyle
      .ZOrder := 38
      .Move(3100, 7460, 3000, 360)
      .Style := "DropdownList"
    End With  'SampleScrollBarForm.CBStyle
    With .Divider1
      .Move(100, 4300, 7870, 20)
    End With  'SampleScrollBarForm.Divider1
    With .BTNBackColor
      .Move(100, 4400, 1400, 400)
    End With  'SampleScrollBarForm.BTNBackColor
    With .BTNForeColor
      .Move(1600, 4400, 1400, 400)
    End With  'SampleScrollBarForm.BTNForeColor
    With .BTNFont
      .Move(3100, 4400, 1400, 400)
    End With  'SampleScrollBarForm.BTNFont
    With .LeftLabel
      .Move(100, 5000, 1000, 225)
    End With  'SampleScrollBarForm.LeftLabel
    With .TopLabel
      .Move(100, 5325, 1000, 225)
    End With  'SampleScrollBarForm.TopLabel
    With .WidthLabel
      .Move(100, 5650, 1000, 225)
    End With  'SampleScrollBarForm.WidthLabel
    With .HeightLabel
      .Move(100, 5975, 1000, 225)
    End With  'SampleScrollBarForm.HeightLabel
    With .LeftValue
      .Move(1200, 5000, 1000, 225)
    End With  'SampleScrollBarForm.LeftValue
    With .TopValue
      .Move(1200, 5325, 1000, 225)
    End With  'SampleScrollBarForm.TopValue
    With .WidthValue
      .Move(1200, 5650, 1000, 225)
    End With  'SampleScrollBarForm.WidthValue
    With .HeightValue
      .Move(1200, 5975, 1000, 225)
    End With  'SampleScrollBarForm.HeightValue
    With .LeftSB
      .Move(2300, 5000, 5670, 225)
      .Max := 6570
      .Move(2300, 5000, 5670, 225)
    End With  'SampleScrollBarForm.LeftSB
    With .TopSB
      .Move(2300, 5325, 5670, 225)
      .Max := 3900
      .Move(2300, 5325, 5670, 225)
    End With  'SampleScrollBarForm.TopSB
    With .WidthSB
      .Move(2300, 5650, 5670, 225)
      .Max := 4785
      .Move(2300, 5650, 5670, 225)
    End With  'SampleScrollBarForm.WidthSB
    With .HeightSB
      .Move(2300, 5975, 5670, 225)
      .Max := 2995
      .Move(2300, 5975, 5670, 225)
    End With  'SampleScrollBarForm.HeightSB
    With .CaptionLabel
      .Move(100, 6800, 1000, 400)
    End With  'SampleScrollBarForm.CaptionLabel
    With .CaptionTB
      .Move(1200, 6800, 6770, 400)
    End With  'SampleScrollBarForm.CaptionTB
    With .Divider2
      .Move(100, 7300, 7870, 20)
    End With  'SampleScrollBarForm.Divider2
    With .ControlFont
      .FaceName := ""
      .Size := 0.000000
      .Bold := True
      .Italic := False
      .Strikethru := False
    End With  'SampleScrollBarForm.ControlFont
    With .PickAFont
      .AllowSizeSelect := True
    End With  'SampleScrollBarForm.PickAFont
    With .BTNEnabled
      .Move(100, 6400, 1300, 300)
    End With  'SampleScrollBarForm.BTNEnabled
    With .BTNVisible
      .Move(1500, 6400, 1300, 300)
    End With  'SampleScrollBarForm.BTNVisible
    With .BTNFormBackColor
      .Move(4600, 4400, 1400, 400)
    End With  'SampleScrollBarForm.BTNFormBackColor
    With .BTNFormForeColor
      .Move(6100, 4400, 1400, 400)
    End With  'SampleScrollBarForm.BTNFormForeColor
  End With  'SampleScrollBarForm
' Reconstruction commands for object: SamplesApp
'
  With SamplesApp
    .MainForm := SamplePickerForm
  End With  'SamplesApp
' Reconstruction commands for object: SampleComboBoxForm
'
  With SampleComboBoxForm
    .Caption := "Combo Box"
    .Move(6150, 855, 8190, 9990)
    .TheControl := SampleComboBoxForm.TheCombo
    .DisplayHeight := 2200
    .StaticBottom := 5320
    .ControlHeight := 7100
    .CursorX := 2310
    .CursorY := 8980
    .Ignore := 0
    With .TheCombo
      .ZOrder := 41
      .Move(3285, 900, 1500, 360)
    End With  'SampleComboBoxForm.TheCombo
    With .SelLengthLabel
      .ZOrder := 42
      .Move(100, 8980, 1005, 225)
    End With  'SampleComboBoxForm.SelLengthLabel
    With .SelLengthValue
      .Caption := "0"
      .ZOrder := 43
      .Move(1205, 8980, 1005, 225)
    End With  'SampleComboBoxForm.SelLengthValue
    With .SelStartLabel
      .ZOrder := 44
      .Move(100, 8655, 1005, 225)
    End With  'SampleComboBoxForm.SelStartLabel
    With .SelStartValue
      .Caption := "0"
      .ZOrder := 45
      .Move(1205, 8655, 1005, 225)
    End With  'SampleComboBoxForm.SelStartValue
    With .SelLengthSB
      .ZOrder := 46
      .Move(2310, 8980, 4000, 225)
      .SmallChange := 1
      .LargeChange := 5
      .Max := 0
      .Orientation := "Horizontal"
      .Move(2310, 8980, 4000, 225)
    End With  'SampleComboBoxForm.SelLengthSB
    With .SelStartSB
      .ZOrder := 47
      .Move(2310, 8655, 4000, 225)
      .SmallChange := 1
      .LargeChange := 5
      .Max := 0
      .Orientation := "Horizontal"
      .Move(2310, 8655, 4000, 225)
    End With  'SampleComboBoxForm.SelStartSB
    With .CBStyle
      .ZOrder := 48
      .Move(1200, 8195, 3000, 360)
      .Style := "DropdownList"
    End With  'SampleComboBoxForm.CBStyle
    With .LBLStyle
      .Caption := "Style:"
      .ZOrder := 49
      .Move(100, 8195, 1000, 360)
      .Alignment := "Right"
    End With  'SampleComboBoxForm.LBLStyle
    With .CHKSorted
      .ZOrder := 1
      .Move(1700, 5420, 1000, 225)
    End With  'SampleComboBoxForm.CHKSorted
    With .BTNQAdd1
      .ZOrder := 2
      .Move(100, 7695, 1400, 400)
    End With  'SampleComboBoxForm.BTNQAdd1
    With .BTNQAdd2
      .ZOrder := 3
      .Move(1600, 7695, 1400, 400)
    End With  'SampleComboBoxForm.BTNQAdd2
    With .BTNQAdd3
      .ZOrder := 4
      .Move(3100, 7695, 1400, 400)
    End With  'SampleComboBoxForm.BTNQAdd3
    With .TBItem
      .ZOrder := 5
      .Move(2000, 6770, 5500, 400)
    End With  'SampleComboBoxForm.TBItem
    With .BTNAddItem
      .ZOrder := 6
      .Move(100, 6270, 1400, 400)
    End With  'SampleComboBoxForm.BTNAddItem
    With .BTNInsertItem
      .ZOrder := 7
      .Move(1600, 6270, 1400, 400)
    End With  'SampleComboBoxForm.BTNInsertItem
    With .InsertItemSB
      .ZOrder := 8
      .Move(2000, 7270, 2500, 225)
      .Max := 22
      .Move(2000, 7270, 2500, 225)
    End With  'SampleComboBoxForm.InsertItemSB
    With .InsertItemLBL
      .Caption := "Insert/Remove Index: 0"
      .ZOrder := 9
      .Move(100, 7270, 1800, 225)
    End With  'SampleComboBoxForm.InsertItemLBL
    With .BTNRemoveItem
      .ZOrder := 10
      .Move(3100, 6270, 1400, 400)
    End With  'SampleComboBoxForm.BTNRemoveItem
    With .LBLListCount
      .ZOrder := 11
      .Move(100, 5420, 1500, 225)
    End With  'SampleComboBoxForm.LBLListCount
    With .LBLListIndex
      .Caption := "ListIndex: 1"
      .ZOrder := 12
      .Move(2800, 5420, 1500, 225)
    End With  'SampleComboBoxForm.LBLListIndex
    With .SBListIndex
      .ZOrder := 13
      .Move(4400, 5420, 2500, 225)
      .Max := 21
      .Move(4400, 5420, 2500, 225)
    End With  'SampleComboBoxForm.SBListIndex
    With .BTNClear
      .ZOrder := 14
      .Move(4600, 6270, 1400, 400)
    End With  'SampleComboBoxForm.BTNClear
    With .LBLItem
      .ZOrder := 15
      .Move(100, 6770, 1800, 225)
    End With  'SampleComboBoxForm.LBLItem
    With .LBLText
      .ZOrder := 16
      .Move(100, 5745, 700, 225)
    End With  'SampleComboBoxForm.LBLText
    With .LBLTextValue
      .ZOrder := 17
      .Move(900, 5745, 15000, 225)
    End With  'SampleComboBoxForm.LBLTextValue
    With .Divider1
      .ZOrder := 18
      .Move(100, 2200, 7870, 20)
    End With  'SampleComboBoxForm.Divider1
    With .BTNBackColor
      .ZOrder := 19
      .Move(100, 2300, 1400, 400)
    End With  'SampleComboBoxForm.BTNBackColor
    With .BTNForeColor
      .ZOrder := 20
      .Move(1600, 2300, 1400, 400)
    End With  'SampleComboBoxForm.BTNForeColor
    With .BTNFont
      .ZOrder := 21
      .Move(3100, 2300, 1400, 400)
    End With  'SampleComboBoxForm.BTNFont
    With .LeftLabel
      .ZOrder := 22
      .Move(100, 2900, 1000, 225)
    End With  'SampleComboBoxForm.LeftLabel
    With .TopLabel
      .ZOrder := 23
      .Move(100, 3225, 1000, 225)
    End With  'SampleComboBoxForm.TopLabel
    With .WidthLabel
      .ZOrder := 24
      .Move(100, 3550, 1000, 225)
    End With  'SampleComboBoxForm.WidthLabel
    With .HeightLabel
      .ZOrder := 25
      .Move(100, 3875, 1000, 225)
    End With  'SampleComboBoxForm.HeightLabel
    With .LeftValue
      .ZOrder := 26
      .Move(1200, 2900, 1000, 225)
    End With  'SampleComboBoxForm.LeftValue
    With .TopValue
      .ZOrder := 27
      .Move(1200, 3225, 1000, 225)
    End With  'SampleComboBoxForm.TopValue
    With .WidthValue
      .ZOrder := 28
      .Move(1200, 3550, 1000, 225)
    End With  'SampleComboBoxForm.WidthValue
    With .HeightValue
      .ZOrder := 29
      .Move(1200, 3875, 1000, 225)
    End With  'SampleComboBoxForm.HeightValue
    With .LeftSB
      .ZOrder := 30
      .Move(2300, 2900, 5670, 225)
      .Move(2300, 2900, 5670, 225)
    End With  'SampleComboBoxForm.LeftSB
    With .TopSB
      .ZOrder := 31
      .Move(2300, 3225, 5670, 225)
      .Max := 1800
      .Move(2300, 3225, 5670, 225)
    End With  'SampleComboBoxForm.TopSB
    With .WidthSB
      .ZOrder := 32
      .Move(2300, 3550, 5670, 225)
      .Move(2300, 3550, 5670, 225)
    End With  'SampleComboBoxForm.WidthSB
    With .HeightSB
      .ZOrder := 33
      .Move(2300, 3875, 5670, 225)
      .Max := 1300
      .Move(2300, 3875, 5670, 225)
    End With  'SampleComboBoxForm.HeightSB
    With .CaptionLabel
      .ZOrder := 34
      .Move(100, 4700, 1000, 400)
    End With  'SampleComboBoxForm.CaptionLabel
    With .CaptionTB
      .ZOrder := 35
      .Move(1200, 4700, 6770, 400)
    End With  'SampleComboBoxForm.CaptionTB
    With .Divider2
      .ZOrder := 36
      .Move(100, 5200, 7870, 20)
    End With  'SampleComboBoxForm.Divider2
    With .ControlFont
      .FaceName := ""
      .Size := 0.000000
      .Bold := True
      .Italic := False
      .Strikethru := False
    End With  'SampleComboBoxForm.ControlFont
    With .PickAFont
    End With  'SampleComboBoxForm.PickAFont
    With .BTNEnabled
      .ZOrder := 37
      .Move(100, 4300, 1300, 300)
    End With  'SampleComboBoxForm.BTNEnabled
    With .BTNVisible
      .ZOrder := 38
      .Move(1500, 4300, 1300, 300)
    End With  'SampleComboBoxForm.BTNVisible
    With .BTNFormBackColor
      .ZOrder := 39
      .Move(4600, 2300, 1400, 400)
    End With  'SampleComboBoxForm.BTNFormBackColor
    With .BTNFormForeColor
      .ZOrder := 40
      .Move(6100, 2300, 1400, 400)
    End With  'SampleComboBoxForm.BTNFormForeColor
  End With  'SampleComboBoxForm
' Reconstruction commands for object: SampleOptionBoxForm
'
  With SampleOptionBoxForm
    .Caption := "Option Button"
    .Move(6150, 855, 8190, 9990)
    .TheControl := SampleOptionBoxForm.TheOption
    .DisplayHeight := 5985
    .StaticBottom := 9105
    .ControlHeight := 3600
    With .TheOption
      .ForeColor := 0
      .ZOrder := 24
      .Move(3285, 2792, 1500, 400)
      .TabStop := True
      .TabGroup := True
    End With  'SampleOptionBoxForm.TheOption
    With .TheControl2
      .Caption := "Another Option button, to illustrate how Option Buttons operate"
      .ZOrder := 25
      .Move(100, 5585, 7000, 300)
    End With  'SampleOptionBoxForm.TheControl2
    With .ControlValue
      .Caption := "Value"
      .ZOrder := 26
      .Move(100, 9165, 2000, 300)
    End With  'SampleOptionBoxForm.ControlValue
    With .Divider1
      .Move(100, 5985, 7870, 20)
    End With  'SampleOptionBoxForm.Divider1
    With .BTNBackColor
      .Move(100, 6085, 1400, 400)
    End With  'SampleOptionBoxForm.BTNBackColor
    With .BTNForeColor
      .Move(1600, 6085, 1400, 400)
    End With  'SampleOptionBoxForm.BTNForeColor
    With .BTNFont
      .Move(3100, 6085, 1400, 400)
    End With  'SampleOptionBoxForm.BTNFont
    With .LeftLabel
      .Move(100, 6685, 1000, 225)
    End With  'SampleOptionBoxForm.LeftLabel
    With .TopLabel
      .Move(100, 7010, 1000, 225)
    End With  'SampleOptionBoxForm.TopLabel
    With .WidthLabel
      .Move(100, 7335, 1000, 225)
    End With  'SampleOptionBoxForm.WidthLabel
    With .HeightLabel
      .Move(100, 7660, 1000, 225)
    End With  'SampleOptionBoxForm.HeightLabel
    With .LeftValue
      .Move(1200, 6685, 1000, 225)
    End With  'SampleOptionBoxForm.LeftValue
    With .TopValue
      .Move(1200, 7010, 1000, 225)
    End With  'SampleOptionBoxForm.TopValue
    With .WidthValue
      .Move(1200, 7335, 1000, 225)
    End With  'SampleOptionBoxForm.WidthValue
    With .HeightValue
      .Move(1200, 7660, 1000, 225)
    End With  'SampleOptionBoxForm.HeightValue
    With .LeftSB
      .Move(2300, 6685, 5670, 225)
      .Max := 6570
      .Move(2300, 6685, 5670, 225)
    End With  'SampleOptionBoxForm.LeftSB
    With .TopSB
      .Move(2300, 7010, 5670, 225)
      .Max := 5585
      .Move(2300, 7010, 5670, 225)
    End With  'SampleOptionBoxForm.TopSB
    With .WidthSB
      .Move(2300, 7335, 5670, 225)
      .Max := 4785
      .Move(2300, 7335, 5670, 225)
    End With  'SampleOptionBoxForm.WidthSB
    With .HeightSB
      .Move(2300, 7660, 5670, 225)
      .Max := 3193
      .Move(2300, 7660, 5670, 225)
    End With  'SampleOptionBoxForm.HeightSB
    With .CaptionLabel
      .Move(100, 8485, 1000, 400)
    End With  'SampleOptionBoxForm.CaptionLabel
    With .CaptionTB
      .Move(1200, 8485, 6770, 400)
    End With  'SampleOptionBoxForm.CaptionTB
    With .Divider2
      .Move(100, 8985, 7870, 20)
    End With  'SampleOptionBoxForm.Divider2
    With .ControlFont
      .FaceName := ""
      .Size := 0.000000
      .Bold := True
      .Italic := False
      .Strikethru := False
    End With  'SampleOptionBoxForm.ControlFont
    With .PickAFont
      .AllowSizeSelect := True
    End With  'SampleOptionBoxForm.PickAFont
    With .BTNEnabled
      .Move(100, 8085, 1300, 300)
    End With  'SampleOptionBoxForm.BTNEnabled
    With .BTNVisible
      .Move(1500, 8085, 1300, 300)
    End With  'SampleOptionBoxForm.BTNVisible
    With .BTNFormBackColor
      .Move(4600, 6085, 1400, 400)
    End With  'SampleOptionBoxForm.BTNFormBackColor
    With .BTNFormForeColor
      .Move(6100, 6085, 1400, 400)
    End With  'SampleOptionBoxForm.BTNFormForeColor
  End With  'SampleOptionBoxForm
End Code