有什么VB界面美化的控件吗
我有一个WinXPC,可以美化按钮，check控件等等，但这是XP风格的，有没有VISTA或WINDOWS 7的风格的呢
如果有的话，提供个下载地址或发我邮箱，谢谢
Email：wangsijie@mail.com
[解决办法]
http://www.vbgood.com/viewthread.php?tid=85929
Codejock Xtreme Suite Pro 13.1.0 (2009 Vol 2)是Codejock公司最新开发的专业级界面控件套装，向您的应用程序提供一种专业的，富有现代感的外观，具备工具条、日历、常用控件大杂烩、属性网格、Docking Pane（可拖动的边栏）、界面更换、报表等子控件。他们都支持数个流行界面，如Office2000,Office2003,Office2007,VisualStudio,WindowsXP等 。Xtreme Suite Pro结合了十个构件，Xtreme CommandBars（可以绘制Office2003工具栏和Office2007的Ribbon且支持过渡效果）, Xtreme Docking Pane（支持类似VS.Net中的拖动指示效果）, Xtreme Property Grid（类似VS.Net中的属性框；支持单个项目的自定颜色）,Xtreme Report Control（专业报表控件，可以类似Excel，可以类似Outlook，支持太多了……）, Xtreme Calendar（日历）, Xtreme Syntax Control（代码高亮，支持自定义代码高亮的内容）, Xtreme Suite Controls（控件集合，包含基本控件:按钮等 和拓展控件istView等，优点是支持换肤，支持32位PNG哦）, Xtreme ShortcutBar（类似于Outlook左侧的快捷栏）, XtremeSkinframework（两句话给你的所有东西换肤！不用更换其他内容！）, 和 Xtreme Task Panel（左侧任务栏，支持搜索风格等等）。 有了XtremeSuitePro，您可以创建企业级的，结合全套高度定制化用户界面构件，包括微软风格的工具条和功能选单的应用程序。包含几种流行的外观风格，例如微软OfficeXP、Office2003、OFFICE 2007和Visual Studio.NET。
我已经试过了，可用，压缩包密码vIstaswx
[解决办法]
Private Sub Form_Load()
Dim Descriptions As SkinDescriptions
Set Descriptions = SkinFramework.EnumerateSkinDirectory(App.Path + "..\..\..\Styles", True)
SkinFramework.LoadSkin App.Path + "..\..\..\Styles\Office2007.cjstyles", ""
SkinFramework.ApplyWindow Me.hWnd
SkinFramework.ApplyOptions = SkinFramework.ApplyOptions Or xtpSkinApplyMetrics
SkinFramework.EnableThemeDialogTexture PictureTabClient.hWnd, 6
End Sub
