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)
          Form1.mnuordnername(i).Caption = lvwKeys.ListItems(j).Text
          Form1.mnuordnername(i).Visible = True
          Form1.File1(j).Path = lvwKeys.ListItems(j).SubItems(j)
       For h = 0 To Form1.File1(j).ListCount - 1
         If h = 0 Then
            Form1.mnuOrdnerinhalt(h).Caption = Form1.File1(j).List(h)
         Else
            Load Form1.mnuOrdnerinhalt(h)
            Form1.mnuOrdnerinhalt(h).Caption = Form1.File1(j).List(h)
        End If
       Next h
    Next j
Next i
 
 
    End With