Private WithEvents newLV As ListViewItem
Dim TN As TreeNode
        For Each TN In TreeView1.Nodes
            Dim mPage As New TabPage
            With mPage
                .BackColor = Color.Beige
                .Name = TN.Text
                .Text = TN.Text
                .Size = New Size(150, 20)
            End With
            TabControl1.Controls.Add(mPage)
            Dim LV As New ListView
            With LV
                .Name = TN.Text
                .View = View.Details
                .Columns.Add("Nummer", 100, HorizontalAlignment.Left)
                .Columns.Add("Status", 300, HorizontalAlignment.Left)
                .SetBounds(20, 20, 800, 500)
                .Dock = DockStyle.Fill 
            End With
 
            For Each TNN As TreeNode In TN.Nodes
                With LV
                    .Items.Add(New ListViewItem(TNN.Text.ToString))
                End With
                mPage.Controls.Add(LV)
            Next
            mPage.Controls.Add(LV)
        Next
Private Sub LVclick(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles newLV.SelectedIndexChanged
        MsgBox("nur zum testen")
 End Sub