<code><font color=green>' INI-Datei auslesen (alle Abschnitte ermitteln und
' in "lstSections" anzeigen)</font>
Private Sub Init_Sections(ByVal INIFile As String)
  Dim strSections As String
  Dim lResult As Long
  Dim Section() As String
  Dim I As Integer
 
  <font color=green>' ListBox löschen</font>
  List1.Clear
 
  <font color=green>' Rückgabe-String vorbereiten</font>
  strSections = Space$(32767)
 
  <font color=green>' vbNullString übergeben, um alle gespeicherten
  ' Abschnittsnamen zu ermitteln</font>
  lResult = GetPrivateProfileString(vbNullString, _
    "", "", strSections, Len(strSections), INIFile)
 
  <font color=green>' Sind überhaupt Abschnitte vorhanden?</font>
  strSections = Left$(strSections, lResult)
  If strSections <> "" Then
 
    <font color=green>' Rückgabestring "splitten"</font>
    Section = Split(strSections, Chr$(0))
 
    <font color=green>' Alle Abschnitt der ListBox hinzufügen</font>
    With List1
      For I = 0 To UBound(Section) - 1
        .AddItem Section(I)
      Next I
    End With  
  End If
End Sub</code>