hi al this is a code to make just one menu
Set newmbar = CommandBars.Add(Name:="MenuService", Position:=msoBarTop, MenuBar:=True, Temporary:=True) newmbar.Visible = True newmbar.Protection = msoBarNoMove Set menumaster = newmbar.Controls.Add(Type:=msoControlPopup, Temporary:=True) menumaster.Caption = "&Master" Set menumasterkodejasa = menumaster.Controls.Add(Type:=msoControlButton) menumasterkodejasa.Caption = "&Kode Uraian Jasa" menumasterkodejasa.TooltipText = "Kode Uraian Jasa" menumasterkodejasa.Style = msoButtonCaption menumasterkodejasa.OnAction = "bukamasteruraian" then my question is: how to create sub menu from Kode Uraian Jasa thank you very much __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com Please zip all files prior to uploading to Files section. Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/AccessDevelopers/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/