עזרה עם לולאה ליצירת תת תפריטים

[Zeev86]

היי. יש לי קוד בVisual Basic 6 לשתי לולאות שצריכות ליצור תפריטים, ותת תפריטים בתוך התפריטים שיצרתי. זה אמור להראות כך:

תפריט 1

....... תת תפריט של 1

....... תת תפריט של 1

....... תת תפריט של 1

....... תת תפריט של 1

תפריט 2

....... תת תפריט של 2

....... תת תפריט של 2

....... תת תפריט של 2

....... תת תפריט של 2

וכך הלאה עד תפריט 4.

For x = 1 To 4

Load mnuCatItem(x)

mnuCatItem(x).Caption = Menu Item & x + 1

mnuCatItem(x).Visible = True

For y = LastItem To LastItem + 4

Load mnuSubCatItem(y)

mnuSubCatItem(y).Caption = Menu Item & y + 1

mnuSubCatItem(y).Visible = True

LastItem = LastItem + 1

Next y

Next x

בתוכנה נוצרים תפריטים, אבל תת תפריטים נוצרים רק בתפריט הראשון. המטרה שלי ליצור את התת תפריטים גם בתפריטים 2, 3, 4.

תודה רבה מראש לעוזרים!