菜单问题

GetMenuItemCount VB声明 
Declare Function GetMenuItemCount Lib "user32" Alias "GetMenuItemCount" (ByVal hMenu As Long) As Long 
说明 
返回菜单中条目（菜单项）的数量 
返回值 
Long，菜单中的条目数量；-1意味着出错。会设置GetLastError 
参数表 
参数 类型及说明 
hMenu Long，目标菜单的句柄 
GetMenuItemID VB声明 
Declare Function GetMenuItemID Lib "user32" Alias "GetMenuItemID" (ByVal hMenu As Long, ByVal nPos As Long) As Long 
说明 
返回位于菜单中指定位置处的条目的菜单ID 
返回值 
Long，指定条目的菜单ID。如条目属于一个弹出式菜单，就返回-1；如指定的条目属于一个分隔符（比如一条分隔线）则返回0 
参数表 
参数 类型及说明 
hMenu Long，菜单的句柄 
nPos Long，条目在菜单中的位置。第一个条目的编号是0