bsp; SkinFramework1.LoadSkin Dlg.FileName, IniFile
        SkinFramework1.ApplyWindow Me.hWnd
        SkinFramework1.ApplyOptions = SkinFramework1.ApplyOptions Or xtpSkinApplyMetrics

End Sub

      这里我们利用SkinFramework的LoadSkin方法找到指定的皮肤文件，然后再调用ApplyWindow方法，并且设置了ApplyOptions 属性，注意这里的设置其实就是SkinFramework的默认值。

  按F5运行工程，出现在我们眼前的界面将是下面这个样子了

简单的引用，简单的代码，出现在我们面前的却已经是如此漂亮的界面，到这里我们已大告功成了。

四、扩展

  Xtreme Suite Pro ActiveX  的SkinFramework 不但支持以cjstyles为扩展的皮肤文件，同时也支持XP的themes文件，即以msstyles为扩展名的文件，知道了这点我们的皮肤来源就非常广了。

    下面为大家推荐一个地方，里面有很多免费的皮肤

     http://customize.org/xpthemes

  安装完Xtreme Suite Pro ActiveX  ，官方即包含Office2007.cjstyles，Vista.cjstyles，WinXP.Luna.cjstyles，WinXP.Royale.cjstyles四个皮肤文件，同一个皮肤文件中可能包含几个配置文件，比如Office2007.cjstyles就包含NormalBlue.ini 、NormalAqua.ini 、NormalSilver.ini 、NormalBlack.ini 四个配置文件，可以放在LoadSkin方法的第二个参数中，就可以显示不同配置文件所达到的不同皮肤的效果。

为了读取皮肤文件所包含的配置文件，我们可以用下面的方法

    Dim Discription As SkinDescription
    Dim i As Integer
    Dim FileName as string

       FileName ="C:Program FilesCodejock SoftwareActiveXXtreme SuitePro ActiveX v12.0.1SamplesSkinFrameworkStylesOffice2007.cjstyles"

        Set Discription = SkinFramework1.EnumerateSkinFile(FileName )
        For i = 0 To Discription.Count - 1
           debug.print "IniFile:" & Discription.IniFile(i).IniFileName & "/ColorScheme:" & Discription.IniFile(i).ColorScheme & _
                          "/FontSize:" & Discription.IniFile(i).FontSize
        Next

 写到这里，我们才真正搞