Dim YY As Integer = 0
    Dim ii As Integer
    Dim strValues() As String = {"cc", "dd"}
 
    ListView1.View = Windows.Forms.View.Details
 
    ListView1.Columns.Add("col1", -1, Windows.Forms.HorizontalAlignment.Center)
    ListView1.Columns.Add("col2", -1, Windows.Forms.HorizontalAlignment.Center)
    ListView1.Columns.Add("col3", -1, Windows.Forms.HorizontalAlignment.Center)
 
    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