一个控件几行代码实现换肤（可支持菜单）

               

 这是从vbAccelerator(http://vbaccelerator.com)的皮肤程序修改而来，把DLL方式修改为OCX，并且修改为仅通过几行指令，即可完成皮肤加载。此外，不再需要SSubTmr6.dll的支持了，修改了原程序XML方式导入导出的Bug，加入了"Borders"字段，增加了异型窗体处理，新编写了皮肤制作程序。

   ‘ 皮肤示例代码

  Private Sub Form_Load()

       ' 初始化

       YFSkin1.SkinInit Me

       ' 加载制定的皮肤

       YFSkin1.SkinSelect 1

   End Sub

  

   程序下载地址：http://www.sky-walker.com.cn/yefan/SourceCode/YFSkin.rar

   皮肤图示：  

  

  

   制作皮肤工具图示：