With TreeView1
        .Indentation = 0
        .LineStyle = tvwRootLines
        .Nodes.Clear
 
        For i = 0 To Dir1.ListCount - 1
          eintrag = Replace(Dir1.List(i), Form7.Tag, "")
          TreeView1.Nodes.Add , , "Root" & i + 1, eintrag, 1
        Next i
End With

    Form2.Left = Screen.Width / 4
    Form2.Top = Screen.Height / 4
    Form3.Left = Screen.Width / 4
    Form3.Top = Screen.Height / 4