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
    With lvwKeys
      ' Ersten Eintrag markieren
      If .ListItems.Count > 0 Then
        Set .SelectedItem = .ListItems(1)
      End If
      .Enabled = True
    End With
  End If
End Sub