expanded een treeview

 Me.TreeView1.Nodes.Clear
    Me.TreeView1.Width = 190
    Me.TreeView1.Height = 227
    Me.TreeView1.LineStyle = tvwRootLines
    Me.TreeView1.Indentation = 20
    
    Dim Incident As Integer
    
    Sheets("Blad1").Select
    Me.TreeView1.Height = 480
        Const OUDER = "LopendeZaken"
        Const OUDER1 = "Werkvoorraad"
        
        With Me.TreeView1.Nodes
        
        .Add Key:="Lopende Zaken", Text:="Lopen Zaken" 'goed
      
        'TreeView1.Nodes("Lopende Zaken").Text.Bold
        Const KIND1 = "Kind1"
            .Add "Lopende Zaken", tvwChild, KIND1, Text:="Item1"
            TreeView1.Nodes("Kind1").ForeColor = RGB(255, 102, 0)
            
            iTeller = 2 'beginnen op rij 2 blad 1
            i = 0
            'Zoek eerst de klas
            For i = 1 To iAantalInbehandeling
                Sheets("Blad1").Select 'De items van bedreiging /Stalking
                Klas = Cells(iTeller, 1)
                Sheets("Blad3").Select
                If Klas = "" Then Exit For
                    If Cells(i, 1) <> "" Then  '1e kolom
                        If Cells(i, 4) = Klas Then
                            If Cells(i, 12) = "Lopend" Then
                                Const KIND1_KIND1 = "Kind1Kind1"
                                    '1 van 4 nod===========================================
                                .Add Relative:=KIND1, relationship:=tvwChild, Key:=KIND1_KIND1 & " " & i, Text:=Cells(i, 2) & " - " & Cells(i, 4)
                                    
                            End If
                        End If
                    Else
                        iTeller = iTeller + 1
                        i = 0
                    End If
       
            Next i
 end with
        '===================================================================================

.Nodes.Add , 4, "hsv", "Ouder"
        .Nodes.Add .Nodes("hsv"), 4, , "kind"
        .Nodes.Add .Nodes("hsv").Child, 4, , "Kleinkind 1"
        .Nodes.Add .Nodes("hsv").Child, 4, , "Kleinkind 2"
        .Nodes("hsv").ForeColor = vbRed
        .Nodes("hsv").Child.EnsureVisible
        .Nodes("hsv").Child.Child.EnsureVisible

.Nodes("hsv").Child.EnsureVisible