… = .Window.Menus[…] (gb.qt4)

Dim hWindow As Window
Dim hMenu As Menu
hMenu = hWindow.Menus [ Index As Integer ]

Returns the Index_-th menu of the menubar.