.

Dim hwndSubmenu as intptr = GetSubMenu(hwndMenu,1) 'Get the SubMenuHandle to the visible MenuItem, in this case the second one (counting from zero)

.

Summary

The GetSubMenu API

.

static extern IntPtr GetSubMenu(IntPtr hMenu, int nPos);

.

Public Shared Function GetSubMenu(ByVal hMenu As IntPtr, ByVal nPos As Integer) As IntPtr

.

Dim hwndSubmenu as intptr = GetSubMenu(hwndMenu,1) 'Get the SubMenuHandle to the visible MenuItem, in this case the second one (counting from zero)

.

    private static extern IntPtr GetSubMenu(IntPtr hMenu, int nPos);

.

    IntPtr fileMenu = GetSubMenu(mainMenu, 0);

.

Documentation

[GetSubMenu] on MSDN