今天把VB6里面的源码开源了（ VB6各类源码开源 - 开源研究系列文章 ），这次把原来VB6里面的一个菜单控件进行介绍，需要的网友请下载安装：
1、看使用截图：
运行时截图：
设计时截图：
2、Office2007颜色设置：
用记事本打开frm文件，找到下列信息，替换掉即可实现上述颜色设置：
Begin tssOfficeMenu.OfficeMenu Menu
Left = -1000
Top = 6990
_ExtentX = 847
_ExtentY = 847
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
DrawingStyle = 4
GradientSideBar = 2
ArrowColor = 5783090
BackgroundColor = 16448250
BorderColor = 8816262
CheckFillColor = 9823231
ArrowColor = 5783090
BackgroundColor = 16448250
BorderColor = 8816262
CheckFillColor = 9823231
CheckMarkColor = 3577330
DisabledIconTintColor= 15652549
IconShadowColor = 13619147
MenuBarBackgroundColor= 16767935
MenuBarTextColor= 0
SelectedArrowColor= 5783090
SelectedCheckBorderColor= 3577330
SelectedCheckFillColor= 9823231
SelectedMenuBorderColor= 10145500
SelectedMenuFillColor= 6477823
SelectedMenuTextColor= 0
SeparatorColor = 12961221
SideBarGradientColor1= 16773091
SideBarGradientColor2= 16765873
TopLevelGradientColor1= 16707555
TopLevelGradientColor2= 15645072
SideBarColor = 15658729
UseCustomColors = -1 'True
GradientSelection= 0 'False
GradientSelectionHorz= -1 'True
End
上面介绍了一个漂亮自定义菜单的使用，需要的请下载安装。