Public Class frmListViewDemo
 
    Dim lv As New ListView With _
        {.Parent = Me, .Width = 400, .Height = 400, .View = View.Details}
 
 
    Private Sub frmListViewDemo_Load(sender As System.Object, _
                             e As System.EventArgs) Handles MyBase.Load
 
        'Spalten erstellen
        With lv.Columns
            .Add("Index", 100)
            .Add("Durchmesser", 100)
            .Add("XSoll", 100)
            '............
        End With
 
        Dim fo As New Font("Arial", 10)
 
        'Item erstellen 
        Dim lvi As ListViewItem = lv.Items.Add("1")
        lvi.UseItemStyleForSubItems = False 
        With lvi.SubItems
            'Subitems füllen
            .Add("Durchmesser = 10.5", Color.Blue, Color.White, fo)
            .Add("XSOLL = 12", Color.Black, Color.LightGray, fo)
            '.............
        End With
 
        lvi = lv.Items.Add("2")
        With lvi.SubItems
            .Add("Durchmesser = 20.7", Color.Blue, Color.White, fo)
            .Add("XSOLL = 18", Color.Black, Color.LightGray, fo)
            '...............
        End With
 
        '...................
    End Sub
End Class