' TreeView an Fenstergröße anpassen
Private Sub Form_Resize()
 
  ' Fenstergröße auf Minimalgröße prüfen
  If Width < 4000 Then Width = 4000
  If Height < 2000 Then Height = 2000
 
  ' Größe vom Treeview anpassen
  With TreeView1
    .Left = 0
    .Top = 0
    .Width = ScaleWidth
    .Height = ScaleHeight
  End With
End Sub

Viel Spass,
R@lf