create a submenu with it's index set to 0 and at run time load subsequent menus
If you have mnuFirstTest as first submenu and its index set to 0 then you can load other menus by

VB Code:
  1. Load mnuFirstTest(1)
  2. mnuFirstTest(1).Visible = True