Dim YY As Integer = 0
        Dim ii As Integer
        Dim strValues() As String = {"cc", "dd"}
 
        ListView1.View = View.Details
 
        ListView1.Columns.Add("col1")
        ListView1.Columns.Add("col2")
        ListView1.Columns.Add("col3")
 
        Dim strMaterial As String = "xxxx"
        While YY < 11
            ListView1.Items.Add(strMaterial)
            For ii = 0 To strValues.Length - 1
                ListView1.Items(YY).SubItems.Add(strValues(ii))
            Next
            YY += 1 ' Zähler der Items
        End While

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist