Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
GetMenuItemCount считает число пунктов в меню, включая разделители. Имейте в виду, что индекс числа пунктов начинается с нуля
В успешном случае функция возвращает число элементов (пунктов) в меню. В случае ошибки функция возвращает -1 (используйте GetLastError для получения кода ошибки)
смотри пример menu.zip