With .Menu With .AddCommand .Caption = "USD" .Tag = "Currency.USD" .Image = "Dollar" .OnAction = "OnSelectCurrency" End With With .AddCommand .Caption = "EUR" .Tag = BTN_EURO .Image = "Euro" .OnAction = "OnSelectCurrency" End With .AddSeparator With .AddPopup .Caption = "Currency Settings ..." .Image = "Options" With .AddCommand .Caption = "Enable\Disable EURO" .Image = "Pencil" .Tag = BTN_ENABLE_EURO .OnAction = "OnEnableEuroCurrency" End With End With End With