....
Dim LV As New ListView
            With LV
                .Name = TN.Text
                .View = View.Details
                .Dock = DockStyle.Fill
                .VirtualListSize = 0
                .Columns.Add("Nummer", 100, HorizontalAlignment.Center)
                .Columns.Add("Inhalt", 300, HorizontalAlignment.Left)
                .Columns.Add("ID", 50, HorizontalAlignment.Left)
                .Columns.Add("Status", 300, HorizontalAlignment.Left)
                .Scrollable = True
                .AllowColumnReorder = False 'ganze Zeile selektieren
                .FullRowSelect = False
            End With
            Dim intKnoten As Integer
  Dim intZahl As Integer = 0
            For Each TNN As TreeNode In TN.Nodes
                intKnoten = CInt(TNN.Tag) 'Tag ist aktuelle ID der Datatable
 
                Dim conn As New OleDbConnection ( _
                  "Provider=Microsoft.Jet.OLEDB.4.0;" & mPfad.Datenbankpfad & _
                  ";User Id=admin;Password=;")
                Dim cmd As New OleDbCommand("select * from Zeichnungen where ID" & _
                "= mID", conn)
                Dim da As New OleDbDataAdapter(cmd)
                Dim ds As New ProjektDataSet.ZeichnungenDataTable
                cmd.Parameters.AddWithValue("mID", intKnoten)
                da.Fill(ds)    'öffnet und schließt connection von alleine
 
                With LV
                    .Items.Add(TNN.Text.ToString) 'Zeichnungsnummer
                    .Items(intZahl).SubItems.Add(ds(0).Zeichnungsinhalt)
                    .Items(intZahl).SubItems.Add(ds(0).ID.ToString)
                    .Items(intZahl).SubItems.Add(ds(0).Status_ID.ToString)
                    ToolStripProgressBar1.PerformStep() 'Fortschritt erhöhen
                End With
                intZahl += 1
            Next
            intZahl = 0
            mPage.Controls.Add(LV)
 
            AddHandler LV.Click, AddressOf LVclick 'selektierte Zeile färben ( 
            ' LV)    
        Next
...
 
Private Sub LVclick(ByVal sender As Object, ByVal e As EventArgs)
        Dim lst As ListView = CType(sender, ListView)
        Dim BColor As Color = Color.Khaki
        Dim intIndex As Integer
        If lst.SelectedIndices.Count > 0 Then
            intIndex = CInt(lst.SelectedIndices(0).ToString)
            lst.Items(intIndex).BackColor = BColor
        End If
    End Sub