اضافه کردن منو

hMenu=GetMenu(Me.Handle)

menuItemCount=GetMenuItemCount(hMenu) 

hSubMenu=GetSubMenu(hMenu, 0) 

subMenuItemCount=GetMenuItemCount(hSubMenu) 

Dimmii As MENUITEMINFO 

With mii 

.cbSize=Len(mii) 

.fMask=MIIM_FTYPE Or MIIM_STATE Or MIIM_ID Or MIIM_STRING 

.fType=MFT_STRING 

.fState=MFS_ENABLED 

.wID = 0

.hSubMenu=0

.hbmpChecked=0

.hbmpUnchecked=0 

.dwItemData=9 

.dwTypeData="My Menu Item" 

' the name of your custom menu item End With

 InsertMenuItem(hSubMenu, subMenuItemCount + 1, True, mii) 

DrawMenuBar(Me.Handle)