… = .Menu.Children[…] (gb.qt4)

Dim hMenu As Menu
Dim hMenu2 As Menu
hMenu2 = hMenu.Children [ Index As Integer ]

Return the Indexth child of the menu.