Kataloger och filer till Meny

Hej har ett litet probem.
När programmet startar vill jag lägga till Mappar och filer till en meny.
Jag specificerar att c:\Filer ska läggas till.
det går bra att lägga till mapparna.
den gör en loop igenom en dirlistbox.
sen när jag ska lägga till filerna som är i varje mapp så läggas alla till i den första meny raden.
Jag har gjort en meny som heter program.
Sen en sub meny som heter menyarray med index 0
och sen ytterligare undermeny till denna som heter filarray med index 0
men när jag laddar in mapparna så ökar jag menyarray index med 1

For z = 0 To Dir1.ListCount - 1
hm1 = Len(Dir1.Path)
Load menyarray (z + 1), filarray(5)hm2 = Len(Dir1.List(z))
hm = hm2 - hm - 1
hm2 = Right(Dir1.List(z), hm)
Load menyarray (z + 1)
MenyArray(z + 1).Visible = True
menyarray (z + 1).Caption = hm2
Next

och när jag sen loopar igenom varje mapp i en filelistbox och addar dom så addas dom bara till menyarray med index 0 men jag vill ju att dom filer som är i meny array index 1 ska filerna i den addas som en sub meny under den och inte 0

så min enda fråga är hur laddar man in en under menny till en specifik meny index som har samma namn men olika index och caption

typ så här eller nått.

Load menyarray (1), filarray(1)
Load menyarray (1), filarray(2)
Load menyarray (2), filarray(3)