Private Sub Form_Load()
' Position und Größe von Listview und Treeview bestimmen
    With ListView1
        .Height = 3000 ' Höhe des ListViews
        .Width = 3000 ' Breite des ListViews
        .Top = 200 ' Entfernung zum oberen Rand einer Form
        .Left = 200 ' Entfernung zum linken Rand einer Form
    End With
 
    With TreeView1
        .Height = 3000 ' Höhe des TreeViewes
        .Width = 3000 ' Breite des TreeViews
        .Top = 200 ' Entfernung zum oberen Rand einer Form
        .Left = 3500 ' Entfernung zum linken Rand einer Form
    End With
End Sub