' Controls: Listbox
  Dim Dat1$, Dat2$, Txt$, Lst$(), i&, Pos1&, Zeile$
 
  Dat1 = "C:\Ein_Projekt" ' <- Projekt-Pfad
  Dat2 = Dir$(Dat1 & "\*.frm")
  List1.Clear
  Do Until Dat2 = ""
    Open Dat1 & "\" & Dat2 For Binary As #1
      Txt = Space$(LOF(1))
      Get #1, , Txt
    Close #1
    Lst = Split(Txt, vbCrLf)
    For i = 0 To UBound(Lst)
      Zeile = Lst(i)
      If LCase$(Left$(Zeile, 9)) = "attribute" Then Exit For
      Pos1 = InStr(1, Zeile, "begin ", vbTextCompare)
      If Pos1 > 0 Then
        If InStr(1, Zeile, "VB.Form", vbTextCompare) > 1 Then _
          List1.AddItem String$(9, "-")
        List1.AddItem Mid$(Zeile, Pos1 + 6)
      End If
    Next i
    Dat2 = Dir$
    DoEvents
  Loop

Gruss,

Zardoz