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