Declare Function GetMenu Lib "user32" (ByVal hWnd As Long) As Long
GetMenu идентифицирует, какое меню назначено на данное окно. Это меню появляется как строка меню окна
Функция возвращает описатель верхнего меню окна. Если окно не имеет меню, то функция возвращает 0. Если окно, указанное в списке параметра - дочернее окно, возвращаемое значение функции бессмысленно
' Сначала создайте с помощью Menu Editor ' маленькую систему меню на Form1 ' Определим дескриптор меню формы Dim hMenu As Long ' получаем дескриптор меню формы hMenu = GetMenu(Form1.hWnd) Debug.Print hmenu