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
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/AccessVBACentral/
<*> 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/
