Private Sub mnuSearch_Click()
  Rahmen1.Visible = False
  Rahmen3.Visible = False
 
  ' Diese Zeile stellt auf Twips um
  frmDosShell.ScaleMode = 1
  Rahmen4.Move Rahmen1.Left, Rahmen1.Top, Rahmen1.Width, 620
  Rahmen4.Visible = True
  Rahmen5.Move Rahmen1.Left, 1100, Rahmen1.Width, 2650
  Rahmen5.Visible = True
  ResetSearch
End Sub
 
Private Sub cmdEnd_Click()
 
  'Ursprungszustand wiederherstellen
  Rahmen4.Visible = False
  Rahmen5.Visible = False
  ' Alle Dateien wieder anzeigen
  Rahmen1.Visible = True
  Rahmen3.Visible = True
  If Me.Width > Normal Then
    Call RollForm(Me, False, Me.Width, Normal, 0, 255)
  End If
  ResetSearch
  ' Hier wird wieder auf Pixel umgestellt
  frmDosShell.ScaleMode = 3
  If Option4.Value Then
    txtSearchSpec = "*.*"
  ElseIf Option5.Value Then Option5_Click
  ElseIf Option6.Value Then Option6_Click
  ElseIf Option7.Value Then Option7_Click
  ElseIf Option8.Value Then Option8_Click
  ElseIf Option9.Value Then Option9_Click
  ElseIf Option10.Value Then Option10_Click
  ElseIf Option11.Value Then Option11_Click
  End If
End Sub