frmFind Source Code

Option Explicit 
Public bFind As Boolean 
Public DoWhat As Integer 

Private Sub cmdCancel_Click()
  Unload Me 
End Sub 

Private Sub cmdFind_Click()
  DoWhat = 1 
  Me.Hide 
  AddCombo cmbFind, cmbFind.Text 
End Sub 

Private Sub cmdMarkAll_Click()
  DoWhat = 2 
  Me.Hide 
End Sub 

Private Sub Form_Load()
  DoWhat = 0 
  'Flatten Me
  Me.Left = GetSetting("ScintillaClass", "Settings", "FindLeft", (Screen.Width - Me.Width) \ 2)
  Me.Top = GetSetting("ScintillaClass", "Settings", "FindTop", (Screen.Height - Me.Height) \ 2)
  chkCase.Value = GetSetting("ScintillaClass", "Settings", "FchkCase", 0)
  chkRegExp.Value = GetSetting("ScintillaClass", "Settings", "FchkRegEx", 0)
  chkWhole.Value = GetSetting("ScintillaClass", "Settings", "FchkWhole", 0)
  chkWrap.Value = GetSetting("ScintillaClass", "Settings", "FchkWrap", 1)
  optUp.Value = GetSetting("ScintillaClass", "Settings", "FOptUp", 0)
  ComboLoadHistory cmbFind 
  If cmbFind.ListCount > 0 Then 
    cmbFind.Text = cmbFind.List(0)
  End If 
End Sub 

Private Sub Label1_Click()

End Sub 

Private Sub Form_Unload(Cancel As Integer)
  SaveSetting "ScintillaClass", "Settings", "FindLeft", Me.Left 
  SaveSetting "ScintillaClass", "Settings", "FindTop", Me.Top 
  SaveSetting "ScintillaClass", "Settings", "FchkCase", chkCase.Value 
  SaveSetting "ScintillaClass", "Settings", "FchkRegEx", chkRegExp.Value 
  SaveSetting "ScintillaClass", "Settings", "FchkWhole", chkWhole.Value 
  SaveSetting "ScintillaClass", "Settings", "FchkWrap", chkWrap.Value 
  SaveSetting "ScintillaClass", "Settings", "FOptUp", optUp.Value 
End Sub