'===========================================================================
' Subject: HTML Editor in Envelop BASIC       Date: 06-12-03 (  :  )       
'  Author: Wayne Anthony                      Code: ENVELOP                
'  Origin: Sm0oth@juno.com                  Packet: HTML.ABC
'===========================================================================
Type TinyEd From Application
  Dim AccessControl As New ACL
End Type

Type Form1 From Form
  Type menubar1 From MenuBar
    Dim Popup1 As New PopupMenu
    Dim Edit As New PopupMenu
    Dim Options As New PopupMenu
    Dim Help As New PopupMenu
    Dim Search As New PopupMenu

    ' METHODS for object: Form1.menubar1
    Sub Popup1_Exit_Click()
      App.Quit
    End Sub

    Sub Popup1_New_Click()
      Form1.Caption = "Tiny Ed - Untitled " & Form1.RegTF
    End Sub

    Sub Popup1_Open_Click()
      Dim OpenDialog as new OpenDialog
      Dim TextFile as new TextFile
    
      OpenDialog.InitialDir = "C:\"
      OpenDialog.Title = "Select File"
      OpenDialog.Filter = "HTML Docs (*.HTML)|*.HTML|All files (*.*)|*.*|"
      If OpenDialog.Execute = IDCANCEL Then Exit Sub
      If OpenDialog.FileName <> "" Then 
        TextFile.FileName = OpenDialog.FileName
        Form1.SubForm1.txtEdit.Text = TextFile.ContentsAsString
      End If
      Form1.Caption = "Tiny Ed - " & OpenDialog.FileName & Form1.RegTF
      Form1.SubForm1.txtEdit.SetFocus()
    End Sub

    Sub Popup1_Save_Click()
      SaveAsDialog.Title = "Save as..."
      SaveAsDialog.FileName = "*.html"
      SaveAsDialog.Filter = "HTML Documents(*.HTML)|*.HTML|All Files (*.*)|*.*"
    
      If SaveAsDialog.Execute = IDCANCEL Then Exit Sub
      TextFile.FileName = SaveAsDialog.FileName
    
      TextFile.SetContentsTo(Form1.SubForm1.txtEdit.Text)
    End Sub

  End Type
  Type TabStrip1 From TabStrip
    Dim AutoTab1 As New TabStripTab
    Type AutoTab2 From TabStripTab

      ' METHODS for object: Form1.TabStrip1.AutoTab2
      Sub Click()
        ' Resize Tab's form to occupy TabStrip's Client area & bring it to front
        If TabForm Then 
          TabForm.Move(Parent.ClientLeft, Parent.ClientTop, Parent.ClientWidth, Parent.ClientHeight)
          TabForm.BringToTop
          Form1.Temptxt.FileName = "C:\Windows\TEMP\TinyEd.html"
          Form1.Temptxt.SetContentsTo(Form1.SubForm1.txtEdit.Text)
          Form1.SubForm2.Web1.Visible = True
          Form1.SubForm2.Web1.Navigate("C:\Windows\TEMP\TinyEd.html")
        End If
      
      End Sub

    End Type
  End Type
  Type SubForm1 From Form
    Dim menubar1 As New MenuBar
    Type ObjectBox1 From ObjectBox
      Dim ToolGadget1 As New ToolGadget
      Dim ToolGadget2 As New ToolGadget
      Dim ToolGadget3 As New ToolGadget
      Dim ToolGadget4 As New ToolGadget
      Dim ToolGadget5 As New ToolGadget

      ' METHODS for object: Form1.SubForm1.ObjectBox1
      Sub ToolGadget1_Click()
        Form1.SubForm1.txtEdit.Text = ""
        Form1.Caption = "Tiny Ed - Untitled " & Form1.RegTF
      End Sub

      Sub ToolGadget2_Click()
        Dim OpenDialog as new OpenDialog
        Dim TextFile as new TextFile
      
        OpenDialog.InitialDir = "C:\"
        OpenDialog.Title = "Select File"
        OpenDialog.Filter = "HTML Docs (*.HTML)|*.HTML|All files (*.*)|*.*|"
        If OpenDialog.Execute = IDCANCEL Then Exit Sub
        If OpenDialog.FileName <> "" Then 
          TextFile.FileName = OpenDialog.FileName
          Form1.SubForm1.txtEdit.Text = TextFile.ContentsAsString
        End If
        Form1.Caption = "Tiny Ed - " & OpenDialog.FileName & Form1.RegTF
        Form1.SubForm1.txtEdit.SetFocus()
      End Sub

      Sub ToolGadget3_Click()
        SaveAsDialog.Title = "Save as..."
        SaveAsDialog.FileName = "*.html"
        SaveAsDialog.Filter = "HTML Documents(*.HTML)|*.HTML|All Files (*.*)|*.*"
      
        If SaveAsDialog.Execute = IDCANCEL Then Exit Sub
        TextFile.FileName = SaveAsDialog.FileName
      
        TextFile.SetContentsTo(Form1.SubForm1.txtEdit.Text)
      End Sub

    End Type
    Dim txtEdit As New RichTextBox
  End Type
  Type SubForm2 From Form
    Dim Web1 As New Ocx
    Dim txtTmp As New TempTextFile
  End Type
  Dim Registered As Boolean
  Dim RegTF As String
  Dim Hilite As Boolean
  Declare Function OpenClipboard Lib "user32" Alias "OpenClipboard" (hwnd As Long) As Long
  Declare Function CloseClipboard Lib "user32" Alias "CloseClipboard" () As Long
  Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long
  Declare Function SetClipboardData Lib "user32" (wFormat As Long, hMem As Long) As Long
  Dim Temptxt As New TextFile

  ' METHODS for object: Form1
  Sub About_Click()
    frmAbout.Show
  End Sub

  Sub Copy_Click()
    Form1.SubForm1.txtEdit.Copy
  End Sub

  Sub Cut_Click()
    Form1.SubForm1.txtEdit.Cut
  End Sub

  Sub Exit_Click()
    App.Quit
  End Sub

  Sub Load()
    If Registered = True Then 
      RegTF = " - Registered"
    Else 
      RegTF = " - Unregistered"
    End If
    ' If App.ArgCount - 1 = 1 Then
    ' txtEdit.LoadFile = App.Args(1)
    ' Form1.Caption = "Tiny Ed - " & App.Args(1) & RegTF
    ' Else
    Form1.Caption = "Tiny Ed - Untitled " & RegTF
    ' End If
  End Sub

  Sub New_Click()
    Form1.SubForm1.txtEdit.Text = ""
    Form1.Caption = "Tiny Ed - Untitled " & RegTF
  End Sub

  Sub Open_Click()
    Dim OpenDialog as new OpenDialog
    Dim TextFile as new TextFile
  
    OpenDialog.InitialDir = "C:\"
    OpenDialog.Title = "Select File"
    OpenDialog.Filter = "HTML Docs (*.HTML)|*.HTML|All files (*.*)|*.*|"
    If OpenDialog.Execute = IDCANCEL Then Exit Sub
    If OpenDialog.FileName <> "" Then 
      TextFile.FileName = OpenDialog.FileName
      Form1.SubForm1.txtEdit.Text = TextFile.ContentsAsString
    End If
    Form1.Caption = "Tiny Ed - " & OpenDialog.FileName & Form1.RegTF
    Form1.SubForm1.txtEdit.SetFocus()
  End Sub

  Sub Options_Click()
    frmOptions.Show
  End Sub

  Sub Paint()
  
  End Sub

  Function ParseINI(Line As String) As Integer
    Try
      If Left$(Line, 4) = "Wrap" Then 
        If Mid$(Line, 5, 1) = "1" Then 
          Form1.SubForm1.txtEdit.WordWrap = True
        Else 
          Form1.SubForm1.txtEdit.WordWrap = False
        End If
      ElseIf Left$(Line, 4) = "Tabs" Then 
        If Mid$(Line, 5, 1) = "1" Then 
          Form1.TabStrip1.Style = 0
        Else 
          Form1.TabStrip1.Style = 1
        End If
      ElseIf Left$(Line, 6) = "Syntax" Then 
        If Mid$(Line, 7, 1) = "1" Then 
          Hilite = True
        Else 
          Hilite = False
        End If
      End If
      ParseINI = 1
    Catch
      ParseINI = 0
    End Try
  End Function

  Sub Paste_Click()
    Form1.SubForm1.txtEdit.Paste
  End Sub

  Sub Resize()
    TabStrip1.Width = Form1.Width - 120
    TabStrip1.Height = Form1.Height - 610
  End Sub

  Sub Save_Click()
    SaveAsDialog.Title = "Save as..."
    SaveAsDialog.FileName = "*.html"
    SaveAsDialog.Filter = "HTML Documents(*.HTML)|*.HTML|All Files (*.*)|*.*"
  
    If SaveAsDialog.Execute = IDCANCEL Then Exit Sub
    TextFile.FileName = SaveAsDialog.FileName
  
    TextFile.SetContentsTo(Form1.SubForm1.txtEdit.Text)
  End Sub

  Sub SubForm1_Resize()
    Form1.SubForm1.ObjectBox1.Width = Form1.SubForm1.Width
    Form1.SubForm1.txtEdit.Height = Form1.SubForm1.Height - 350
    Form1.SubForm1.txtEdit.Width = Form1.SubForm1.Width
  End Sub

  Sub SubForm2_Load()
  
  End Sub

  Sub SubForm2_Resize()
    Form1.SubForm2.Web1.Height = Form1.SubForm2.Height
    Form1.SubForm2.Web1.Width = Form1.SubForm2.Width
  End Sub

  Sub Unload()
    CloseClipboard()
  End Sub

End Type

Type frmAbout From Form
  Type txtAbout From RichTextBox
    Dim font1 As New Font
  End Type
  Dim SysInfo As New Ocx
  Dim Label1 As New Label
  Dim Label2 As New Label
  Dim lblBuild As New Label
  Dim lblVersion As New Label
  Dim btnOkay As New Button
  Dim Label3 As New Label
  Dim Label4 As New Label
  Dim lblPBuild As New Label
  Dim lblPVersion As New Label

  ' METHODS for object: frmAbout
  Sub btnOkay_Click()
    frmAbout.Hide()
  End Sub

  Sub Load()
    lblBuild.Text = SysInfo.OSBuild
    lblVersion.Text = SysInfo.OSVersion
  End Sub

End Type

Type frmOptions From Form
  Type TabStrip1 From TabStrip
    Dim AutoTab1 As New TabStripTab
    Dim AutoTab3 As New TabStripTab
  End Type
  Type SubForm1 From Form
    Dim Label1 As New Label
    Dim optTabs As New OptionButton
    Dim optButtons As New OptionButton
    Dim Label2 As New Label
    Dim txtStartUp As New TextBox
    Dim btnStartUp As New Button
    Dim Label3 As New Label
    Dim chkYes As New CheckBox
    Dim Label4 As New Label
    Dim chkWordYes As New CheckBox
  End Type
  Dim btnOkay As New Button
  Dim btnCancel As New Button
  Dim btnApply As New Button
  Type SubForm3 From Form
    Type RichTextBox1 From RichTextBox
      Dim font1 As New Font
    End Type
    Dim btnReg As New Button
    Dim Label1 As New Label
    Dim txtName As New TextBox
    Dim Label2 As New Label
    Dim txtCompany As New TextBox

    ' METHODS for object: frmOptions.SubForm3
    Sub btnReg_Click()
      Form1.RegTF = True
      Form1.Load
    End Sub

  End Type

  ' METHODS for object: frmOptions
  Sub btnApply_Click()
    If SubForm1.optTabs.Value = True Then 
      Form1.TabStrip1.Style = 0
    ElseIf SubForm1.optButtons.Value = True Then 
      Form1.TabStrip1.Style = 1
    End If
    If SubForm1.chkWordYes.Value = 0 Then 
      Form1.SubForm1.txtEdit.WordWrap = False
    Else 
      Form1.SubForm1.txtEdit.WordWrap = True
    End If
    If SubForm1.chkYes.Value = 0 Then 
      Form1.Hilite = False
    Else 
      Form1.Hilite = True
    End If
  End Sub

  Sub btnCancel_Click()
    frmOptions.Hide
  End Sub

  Sub btnOkay_Click()
    btnApply_Click
    btnCancel_Click
  End Sub

End Type

Type Find From Form
  Dim btnFind As New Button
  Dim txtFind As New TextBox

  ' METHODS for object: Find
  Sub btnFind_Click()
  
  End Sub

End Type

Begin Code
' Reconstruction commands for object: TinyEd
'
  With TinyEd
    .ModulePath := "base.ebo;win32.ebo;dialogs.ebo;tools.ebo;TinyEd.ebo"
    .ProjectFileName := "C:\Envelop\Projects\Tiny Ed\TinyEd.epj"
    .MainForm := Form1
    .Path := "C:\Envelop\Projects\Tiny Ed\"
    .EXEName := "TinyEd"
    With .AccessControl
      .ObjectAccess := "R,W,C,M,P"
    End With  'TinyEd.AccessControl
  End With  'TinyEd
' Reconstruction commands for object: Form1
'
  With Form1
    .Caption := "Tiny Ed - Untitled  - Unregistered"
    .Move(2460, 1140, 8505, 8325)
    .MenuBar := Form1.menubar1
    .Registered := False
    .RegTF := " - Unregistered"
    .Hilite := False
    With .menubar1

      .InsertPopup(Form1.menubar1.Popup1, "&File", -1)
      .InsertPopup(Form1.menubar1.Edit, "&Edit", -1)
      .InsertPopup(Form1.menubar1.Search, "&Search", -1)
      .InsertPopup(Form1.menubar1.Options, "&Options", -1)
      .InsertPopup(Form1.menubar1.Help, "&Help", -1)
      With .Popup1

        .InsertItem("New", "New", -1)
        .AccelKey = "Ctrl+N"
        .SetAccelerator("New", .AccelKey)
        .InsertSeparator(-1)
        .InsertItem("Open", "Open", -1)
        .AccelKey = "Ctrl+O"
        .SetAccelerator("Open", .AccelKey)
        .InsertItem("Save", "Save", -1)
        .AccelKey = "Ctrl+A"
        .SetAccelerator("Save", .AccelKey)
        .InsertItem("Save", "Save As...", -1)
        .InsertSeparator(-1)
        .InsertItem("Exit", "Exit", -1)
        .AccelKey = "Alt+F4"
        .SetAccelerator("Exit", .AccelKey)
      End With  'Form1.menubar1.Popup1
      With .Edit

        .InsertItem("Copy", "Copy", -1)
        .AccelKey = "Ctrl+C"
        .SetAccelerator("Copy", .AccelKey)
        .InsertItem("Cut", "Cut", -1)
        .AccelKey = "Ctrl+X"
        .SetAccelerator("Cut", .AccelKey)
        .InsertSeparator(-1)
        .InsertItem("Paste", "Paste", -1)
        .AccelKey = "Ctrl+V"
        .SetAccelerator("Paste", .AccelKey)
        .InsertSeparator(-1)
        .InsertItem("SelectAll", "Select All", -1)
      End With  'Form1.menubar1.Edit
      With .Options

        .InsertItem("Options", "Options", -1)
        .AccelKey = "Ctrl+P"
        .SetAccelerator("Options", .AccelKey)
        .InsertItem("Update", "Update", -1)
        .AccelKey = "Ctrl+U"
        .SetAccelerator("Update", .AccelKey)
      End With  'Form1.menubar1.Options
      With .Help

        .InsertItem("HContents", "Help Contents", -1)
        .InsertSeparator(-1)
        .InsertItem("About", "&About", -1)
      End With  'Form1.menubar1.Help
      With .Search

        .InsertItem("Find", "Find", -1)
        .InsertItem("FNext", "Find Next", -1)
        .InsertSeparator(-1)
        .InsertItem("Replace", "Replace", -1)
      End With  'Form1.menubar1.Search
    End With  'Form1.menubar1
    With .TabStrip1
      .Caption := "TabStrip1"
      .Font := frmAbout.txtAbout.font1
      .ZOrder := 3
      .Move(0, 0, 8385, 7715)
      .MultiRow := True
      .SelectedItem := Form1.TabStrip1.AutoTab1
      With .AutoTab1
        .Caption := "Edit"
        .TabForm := Form1.SubForm1
      End With  'Form1.TabStrip1.AutoTab1
      With .AutoTab2
        .Caption := "Test"
        .TabForm := Form1.SubForm2
      End With  'Form1.TabStrip1.AutoTab2
    End With  'Form1.TabStrip1
    With .SubForm1
      .ZOrder := 1
      .Move(60, 450, 8265, 7200)
      .BorderStyle := "None"
      .MaxButton := False
      .ControlBox := False
      .Parent := Form1
      .Visible := True
      With .menubar1

      End With  'Form1.SubForm1.menubar1
      With .ObjectBox1
        .Caption := "ObjectBox1"
        .ZOrder := 2
        .Move(0, 0, 8265, 300)
        .NumColumns := 20
        .MarginRight := 1
        .Visible := True
        With .ToolGadget1
          .Position := 1
          .HintText := "New HTML Document"
          With .bitmap
            .FileName := "TinyEd.ero"
            .ResId := 0
          End With  'Form1.SubForm1.ObjectBox1.ToolGadget1.bitmap
        End With  'Form1.SubForm1.ObjectBox1.ToolGadget1
        With .ToolGadget2
          .Position := 2
          .HintText := "Open a HTML Document"
          With .bitmap
            .FileName := "TinyEd.ero"
            .ResId := 244
          End With  'Form1.SubForm1.ObjectBox1.ToolGadget2.bitmap
        End With  'Form1.SubForm1.ObjectBox1.ToolGadget2
        With .ToolGadget3
          .Position := 3
          .HintText := "Save your current work to a file."
          With .bitmap
            .FileName := "TinyEd.ero"
            .ResId := 488
          End With  'Form1.SubForm1.ObjectBox1.ToolGadget3.bitmap
        End With  'Form1.SubForm1.ObjectBox1.ToolGadget3
        With .ToolGadget4
          .Position := 4
          .HintText := "Print your currently open source."
          With .bitmap
            .FileName := "TinyEd.ero"
            .ResId := 732
          End With  'Form1.SubForm1.ObjectBox1.ToolGadget4.bitmap
        End With  'Form1.SubForm1.ObjectBox1.ToolGadget4
        With .ToolGadget5
          .Position := 5
          .HintText := "Help topics."
          With .bitmap
            .FileName := "TinyEd.ero"
            .ResId := 976
          End With  'Form1.SubForm1.ObjectBox1.ToolGadget5.bitmap
        End With  'Form1.SubForm1.ObjectBox1.ToolGadget5
      End With  'Form1.SubForm1.ObjectBox1
      With .txtEdit
        .ZOrder := 1
        .Move(0, 300, 8265, 6850)
        .WordWrap := False
        .ScrollBars := "Both"
      End With  'Form1.SubForm1.txtEdit
    End With  'Form1.SubForm1
    With .SubForm2
      .ZOrder := 2
      .Move(60, 450, 8265, 7200)
      .BorderStyle := "None"
      .MaxButton := False
      .ControlBox := False
      .Parent := Form1
      .Visible := True
      With .Web1
        .OCXClassName := "Shell.Explorer.2"
        .Move(0, 0, 8265, 7200)
      End With  'Form1.SubForm2.Web1
      With .txtTmp
        .prefix := "html"
      End With  'Form1.SubForm2.txtTmp
    End With  'Form1.SubForm2
    With .Temptxt
    End With  'Form1.Temptxt
  End With  'Form1
' Reconstruction commands for object: frmAbout
'
  With frmAbout
    .Caption := "About"
    .BackColor := 255
    .MousePointer := "Help"
    .Move(6315, 3375, 5760, 5760)
    .BevelInner := "Inset"
    .BevelOuter := "Raised"
    .Outlined := True
    .BorderStyle := "Fixed Single"
    .MaxButton := False
    .MinButton := False
    .ControlBox := False
    With .txtAbout
      .BackColor := 255
      .ForeColor := 16777215
      .MousePointer := "Help"
      .Font := frmAbout.txtAbout.font1
      .ZOrder := 12
      .Move(300, 150, 5070, 2520)
      .ReadOnly := True
      .ScrollBars := "Both"
      With .font1
        .FaceName := "Palatino Linotype"
        .Size := 12.000000
        .Bold := True
        .Italic := True
        .Strikethru := False
      End With  'frmAbout.txtAbout.font1
    End With  'frmAbout.txtAbout
    With .SysInfo
      .Move(0, 0, 0, 0)
    End With  'frmAbout.SysInfo
    With .Label1
      .Caption := "OS Build:"
      .Font := frmAbout.txtAbout.font1
      .ZOrder := 10
      .Move(300, 2850, 1050, 300)
    End With  'frmAbout.Label1
    With .Label2
      .Caption := "OS Version:"
      .Font := frmAbout.txtAbout.font1
      .ZOrder := 9
      .Move(300, 3300, 1350, 300)
    End With  'frmAbout.Label2
    With .lblBuild
      .Caption := "Error"
      .Font := Font
      .ZOrder := 8
      .Move(2250, 2850, 2550, 300)
    End With  'frmAbout.lblBuild
    With .lblVersion
      .Caption := "Error"
      .Font := Font
      .ZOrder := 7
      .Move(2250, 3300, 2550, 300)
    End With  'frmAbout.lblVersion
    With .btnOkay
      .Caption := "Okay"
      .BackColor := 255
      .MousePointer := "Help"
      .ZOrder := 5
      .Move(1800, 4650, 2100, 300)
      .Ctrl3d := True
    End With  'frmAbout.btnOkay
    With .Label3
      .Caption := "Program Build:"
      .Font := frmAbout.txtAbout.font1
      .ZOrder := 5
      .Move(300, 3750, 1650, 300)
    End With  'frmAbout.Label3
    With .Label4
      .Caption := "Program Version:"
      .Font := frmAbout.txtAbout.font1
      .ZOrder := 4
      .Move(300, 4200, 1950, 300)
    End With  'frmAbout.Label4
    With .lblPBuild
      .Caption := "1"
      .Font := Font
      .ZOrder := 3
      .Move(2250, 3750, 2550, 300)
    End With  'frmAbout.lblPBuild
    With .lblPVersion
      .Caption := "1.0.0"
      .Font := Font
      .ZOrder := 2
      .Move(2250, 4200, 2550, 300)
    End With  'frmAbout.lblPVersion
  End With  'frmAbout
' Reconstruction commands for object: frmOptions
'
  With frmOptions
    .Caption := "Options"
    .Move(6645, 2445, 5760, 5730)
    .BorderStyle := "Fixed Single"
    .MaxButton := False
    With .TabStrip1
      .Caption := "TabStrip1"
      .ZOrder := 7
      .Move(0, 0, 5655, 4650)
      .MultiRow := True
      .SelectedItem := frmOptions.TabStrip1.AutoTab1
      With .AutoTab1
        .Caption := "Visual"
        .TabForm := frmOptions.SubForm1
      End With  'frmOptions.TabStrip1.AutoTab1
      With .AutoTab3
        .Caption := "Register"
        .TabForm := frmOptions.SubForm3
      End With  'frmOptions.TabStrip1.AutoTab3
    End With  'frmOptions.TabStrip1
    With .SubForm1
      .ZOrder := 1
      .Move(60, 375, 5535, 4215)
      .BorderStyle := "None"
      .MaxButton := False
      .ControlBox := False
      .Parent := frmOptions
      .Visible := True
      With .Label1
        .Caption := "Tabs or Buttons?:"
        .Font := frmAbout.txtAbout.font1
        .ZOrder := 10
        .Move(150, 150, 1950, 300)
      End With  'frmOptions.SubForm1.Label1
      With .optTabs
        .Caption := "Tabs"
        .Font := frmAbout.txtAbout.font1
        .ZOrder := 9
        .Move(150, 600, 900, 450)
      End With  'frmOptions.SubForm1.optTabs
      With .optButtons
        .Caption := "Buttons"
        .Font := frmAbout.txtAbout.font1
        .ZOrder := 8
        .Move(1350, 600, 1200, 450)
      End With  'frmOptions.SubForm1.optButtons
      With .Label2
        .Caption := "File to load on start up :"
        .Font := frmAbout.txtAbout.font1
        .ZOrder := 7
        .Move(150, 1350, 2400, 300)
      End With  'frmOptions.SubForm1.Label2
      With .txtStartUp
        .ZOrder := 6
        .Move(2550, 1350, 2550, 300)
      End With  'frmOptions.SubForm1.txtStartUp
      With .btnStartUp
        .Caption := "..."
        .ZOrder := 5
        .Move(5100, 1350, 300, 300)
      End With  'frmOptions.SubForm1.btnStartUp
      With .Label3
        .Caption := "Syntax Highlighting?:"
        .Font := frmAbout.txtAbout.font1
        .ZOrder := 5
        .Move(150, 1950, 2400, 450)
      End With  'frmOptions.SubForm1.Label3
      With .chkYes
        .Caption := "Yes!"
        .Font := frmAbout.txtAbout.font1
        .ZOrder := 4
        .Move(2700, 1950, 900, 300)
      End With  'frmOptions.SubForm1.chkYes
      With .Label4
        .Caption := "Word wrapping?:"
        .Font := frmAbout.txtAbout.font1
        .ZOrder := 3
        .Move(150, 2550, 2250, 450)
      End With  'frmOptions.SubForm1.Label4
      With .chkWordYes
        .Caption := "Yes!"
        .Font := frmAbout.txtAbout.font1
        .ZOrder := 2
        .Move(2700, 2550, 900, 300)
      End With  'frmOptions.SubForm1.chkWordYes
    End With  'frmOptions.SubForm1
    With .btnOkay
      .Caption := "Okay"
      .Font := frmAbout.txtAbout.font1
      .ZOrder := 6
      .Move(150, 4800, 1200, 450)
    End With  'frmOptions.btnOkay
    With .btnCancel
      .Caption := "Cancel"
      .Font := frmAbout.txtAbout.font1
      .ZOrder := 4
      .Move(3000, 4800, 1050, 450)
    End With  'frmOptions.btnCancel
    With .btnApply
      .Caption := "Apply"
      .Font := frmAbout.txtAbout.font1
      .ZOrder := 3
      .Move(4350, 4800, 1050, 450)
    End With  'frmOptions.btnApply
    With .SubForm3
      .ZOrder := 2
      .Move(60, 375, 5535, 4215)
      .BorderStyle := "None"
      .MaxButton := False
      .ControlBox := False
      .Parent := frmOptions
      .Visible := True
      With .RichTextBox1
        .Caption := "You need to be on-line to do this, if you are not on-line you will get an error. Thank you."
        .BackColor := 12632256
        .ForeColor := 0
        .Font := frmOptions.SubForm3.RichTextBox1.font1
        .ZOrder := 5
        .Move(0, 3600, 5550, 600)
        .BorderStyle := "None"
        .ReadOnly := True
        With .font1
          .FaceName := "Terminal"
          .Size := 9.000000
          .Bold := True
          .Italic := False
          .Strikethru := False
        End With  'frmOptions.SubForm3.RichTextBox1.font1
      End With  'frmOptions.SubForm3.RichTextBox1
      With .btnReg
        .Caption := "Register"
        .Font := frmAbout.txtAbout.font1
        .ZOrder := 6
        .Move(2100, 3000, 1200, 450)
      End With  'frmOptions.SubForm3.btnReg
      With .Label1
        .Caption := "Full name:"
        .Font := frmAbout.txtAbout.font1
        .ZOrder := 5
        .Move(750, 300, 3750, 300)
      End With  'frmOptions.SubForm3.Label1
      With .txtName
        .ZOrder := 3
        .Move(1350, 750, 3150, 300)
      End With  'frmOptions.SubForm3.txtName
      With .Label2
        .Caption := "Company:"
        .Font := frmAbout.txtAbout.font1
        .ZOrder := 3
        .Move(750, 1200, 3750, 300)
      End With  'frmOptions.SubForm3.Label2
      With .txtCompany
        .ZOrder := 1
        .Move(1350, 1650, 3150, 300)
      End With  'frmOptions.SubForm3.txtCompany
    End With  'frmOptions.SubForm3
  End With  'frmOptions
' Reconstruction commands for object: Find
'
  With Find
    .Caption := "Find"
    .Move(13620, 6675, 4230, 2055)
    .BorderStyle := "Fixed Double"
    .MaxButton := False
    .MinButton := False
    With .btnFind
      .Caption := "Find"
      .ZOrder := 3
      .Move(1200, 1050, 1800, 300)
    End With  'Find.btnFind
    With .txtFind
      .ZOrder := 2
      .Move(600, 300, 2850, 450)
    End With  'Find.txtFind
  End With  'Find
End Code