End Sub
Private Sub opnStyle_Click(Index As Integer)
'''' 设置菜单风格
Select Case Index
Case 0 '''' Windows 标准
menu.Style = STYLE_WINDOWS
Case 1 '''' XP 风格
menu.Style = STYLE_XP
Case 2 '''' 3D 立体风格
menu.Style = STYLE_3D
Case 3 '''' 渐变风格
menu.Style = STYLE_SHADE
Case 4 '''' 多彩风格
menu.Style = STYLE_COLORFUL
End Select
End Sub
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
