Public Type typChild
  Child as String
  Children() As Long
End Type
 
dim udtChild() as typChild
 
Redim udtChild(0)
udtChild.Children(0).Child = 101
Redim udtChild.Children(1)
udtChuld.Child(0).Children(0) = 1
udtChuld.Child(0).Children(1) = 2
 
Redim Preserver udtChild(1)
udtChild.Children(1).Child = 102
Redim udtChild.Children(0)
udtChuld.Child(0).Children(0) = 1

MfG Liechte
-------------------------------------------------------------------
Wir h?ren nicht auf zu spielen weil wir alt werden,
wir werden alt wenn wir aufh?ren zu spielen
-------------------------------------------------------------------