With lvwKeys.ListItems
      For i = 0 To UBound(Key) - 1
        Set itemX = .Add(, , Key(i))
        itemX.SubItems(1) = GetIniString(strSection, _
          Key(i), "", Datei)
 
     For j = 0 To UBound(Key) - 1
          Form1.mnuordnername(j).Caption = lvwKeys.ListItems(i).Text
          Form1.mnuordnername(j).Visible = True
 
         Form1.File1(j).Path = lvwKeys.ListItems(i).SubItems(i)
 
    Next j
    Next i