Public Sub CopyMenu(ByRef mnuSourceMenu As Menu, ByRef mnuDestMenu As Menu)
mnuDestMenu.Caption = mnuSourceMenu.Caption
mnuDestMenu.Checked = mnuSourceMenu.Checked
mnuDestMenu.Enabled = mnuSourceMenu.Enabled
mnuDestMenu.Visible = mnuSourceMenu.Visible
End Sub