' Abschnitt ausgewählt, d.h. jetzt alle Einträge des
' Abschnittes in der zweiten ListBox anzeigen
Private Sub lstSections_Click()
  With lstSections
    ' Ist überhaupt ein Eintrag ausgewählt?
    If .ListIndex > -1 Then
      Init_Keys .List(.ListIndex), INIFile
    End If
  End With
End Sub
 
' Alle Schlüsselwörter eines Abschnittes auslesen
' und in der zweiten ListBox anzeigen
Private Sub Init_Keys(ByVal strSection As String, _
  ByVal INIFile As String)
 
  Dim strKeys As String
  Dim Key() As String
  Dim I As Integer
  Dim itemX As ListItem
 
  ' ListView löschen
  lvwKeys.ListItems.Clear
 
  ' vbNullString übergeben, um alle gespeicherten
  ' Keys zu ermitteln
  strKeys = GetIniString(strSection, vbNullString, _
    "", INIFile, 32767)
 
  ' Sind überhaupt Einträge vorhanden?
  If strKeys <> "" Then
 
    ' Rückgabestring "splitten"
    Key = Split(strKeys, Chr$(0))
 
    ' Alle Einträge der ListBox hinzufügen
    With lvwKeys.ListItems
      For I = 0 To UBound(Key) - 1
        Set itemX = .Add(, , Key(I))
        itemX.SubItems(1) = GetIniString(strSection, _
          Key(I), "", INIFile)
      Next I
    End With