Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
 
        Dim tmpSubNodeUrsache As TreeNode
        Dim tmpSubNodeInfo As TreeNode
        Dim tmpSubNodeArtikel As TreeNode
        Dim tmpNode As TreeNode
        With TreeView1
            .Nodes.Clear()
            .ExpandAll()
            .ImageList = ImageList1
            .BackColor = Color.Silver
            .ImageIndex = 3
            .SelectedImageIndex = 8
            tmpNode = .Nodes.Add(Date.Now.Date.ToShortDateString)
            With tmpNode
                .Expand()
                .ImageIndex = 3
                .SelectedImageIndex = 3
                'tmpNode.BackColor = Color.Cornsilk
                tmpSubNodeUrsache = .Nodes.Add("Ursachenbeschreibung")
                tmpSubNodeInfo = .Nodes.Add("interne Info")
                tmpSubNodeArtikel = .Nodes.Add("verwendete Artikel")
 
                With tmpSubNodeUrsache
                    .ImageIndex = 4
                    .SelectedImageIndex = 4
                    .Nodes.Add("Ursachenbeschreibung über ... ")
                    .Nodes.Item(0).ImageIndex = 7
                    .Expand()
                End With
                With tmpSubNodeInfo
                    .ImageIndex = 5
                    .SelectedImageIndex = 5
                    .Nodes.Add("Infoemationen über ...")
                    .Expand()
                End With
                With tmpSubNodeArtikel
                    .ImageIndex = 7
                    .SelectedImageIndex = 7
                    .Nodes.Add("Artikel 1 ...")
                    .Nodes.Item(0).ImageIndex = 7
                    .Nodes.Add("Artikel 2 ...")
                    .Nodes.Item(1).ImageIndex = 7
                    .Nodes.Add("Artikel 3 ...")
                    .Nodes.Item(2).ImageIndex = 7
                    .Nodes.Add("Artikel 4 ...")
                    .Nodes.Item(3).ImageIndex = 7
                End With
                .Expand()
            End With
        End With
 
    End Sub