Dim Ebene1 as new collection
 
Dim K as clsEbene2 
set K= new clsEbene2 
Ebene1.Add K
set K= new clsEbene2 
Ebene1.Add K
set K= new clsEbene2 
Ebene1.Add K

'In Klasse "clsEbene2"
dim cColl as new Collection
 
Propert Get ItemList()as Collection
   Set ItemList=cColl
end Property

Ebene1(2).Itemlist(4). hier eine Eigenschaft der Klasse in der cColl Collection

MFG ....


Wenn es das Forum nicht g?b, ich glaub ich h?tte meine Fragen in gro?en Buchstaben in den Sand geschrieben.

Hoffentlich kommt ein Schiff und Jemand kennt eine passende Antwort darauf...