Dim i As Long
Dim u As Long
Dim n As Long
Dim  ItemX As ListItem
 
u = 0
For i = 0 To UBound(ComCount)
  Set ItemX = ListView1.ListItems.Add(, , sFormDat(u))
  For n = 1 To 5
    Itemx.SubItems(n) = sFormDat(u + n)
  Next n
  u = u + 6
Next i

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de