Public Class Form1
    Dim col1(), Col2() As String
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Width = 615
        Me.Height = 360
        Dim la1 As New Label With {.Parent = Me, .Text = "ListView1", .Top = _
          30, .Left = 8}
        Dim la2 As New Label With {.Parent = Me, .Text = "ListView2", .Top = _
        30, .Left = 268}
        Dim la3 As New Label With {.Parent = Me, .Text = "Wert6 aus LV2 ?", _
        .Top = 265, .Left = 8}
        Dim la4 As New Label With {.Parent = Me, .Text = "Wert7 aus LV2 ?", _
        .Top = 288, .Left = 8}
        Dim lv1 As New ListView With {.Parent = Me, .Width = 250, .Height = _
        200, .Top = 55, .Left = 10, .GridLines = True, .View = View.Details, _
        .FullRowSelect = True}
        Dim lv2 As New ListView With {.Parent = Me, .Width = 310, .Height = _
        200, .Top = 55, .Left = 270, .GridLines = True, .View = View.Details, _
        .FullRowSelect = True}
        col1 = {"Nr:", "Wert2", "Wert3", "Wert4"}
        Col2 = {"Wert3", "Wert4", "Wert5", "Wert6", "Wert7"}
 
        For i As Integer = 0 To col1.Length - 1
            lv1.Columns.Add(col1(i))
        Next i
        For i As Integer = 0 To Col2.Length - 1
            lv2.Columns.Add(Col2(i))
        Next i
        lv1.Items.Add("test")
        lv1.Items(0).SubItems.Add("1")
        lv1.Items(0).SubItems.Add("2")
        lv1.Items(0).SubItems.Add("3")
        lv1.Items.Add("test")
        lv1.Items(1).SubItems.Add("1")
        lv1.Items(1).SubItems.Add("5")
        lv1.Items(1).SubItems.Add("6")
 
        lv2.Items.Add("test2")
        lv2.Items(0).SubItems.Add("1")
        lv2.Items(0).SubItems.Add("2")
        lv2.Items(0).SubItems.Add("200")
        lv2.Items(0).SubItems.Add("300")
 
        lv2.Items.Add("test2")
        lv2.Items(1).SubItems.Add("1")
        lv2.Items(1).SubItems.Add("5")
        lv2.Items(1).SubItems.Add("250")
        lv2.Items(1).SubItems.Add("350")
 
        lv2.Items.Add("test2")
        lv2.Items(2).SubItems.Add("1")
        lv2.Items(2).SubItems.Add("5")
        lv2.Items(2).SubItems.Add("300")
        lv2.Items(2).SubItems.Add("400")
    End Sub
End Class