Quoted from "BillMak" Hi Dani, I sure will share my code as soon as I figure it out. Thanks again Hi, This is what I have so far, still not working the way I wanted it to be. In MDIForm1: Public Sub Form_Load() Call CreateMainMenu() End Sub Public Sub createMainMenu() 'Remove the current menubar Me.MenuBar.Parent.removeAll() Dim myFileMenu As VBMenuGroup myFileMenu = Me.MenuBar.createMenuGroup(Null, "File", "File") Me.MenuBar.createMenu myFileMenu, "FileNew", "New" Me.MenuBar.createMenu myFileM...

Hi Dani, I sure will share my code as soon as I figure it out. Thanks again

Thanks for the quick reply, Dani

Hi, I create a menu for MDIForm1 as follow: Public Sub Form_Load() Dim myFileMenu As VBMenuGroup myFileMenu = Me.MenuBar.createMenuGroup(Null, "File", "File", False) Me.MenuBar.createMenu myFileMenu, "FileNew", "New" Me.MenuBar.createMenu myFileMenu, "FileOpen", "Open" Me.MenuBar.createMenu myFileMenu, "FileClose", "Close" End Sub I set the menubar for MDIChild1 as follow: Public Sub Form_Load() Me.setMenuBar MDIForm1.MenuBar End Sub Any one know how to make myFileMenu visible in MDIChild1? Than...