VB6 调用 DirectSkin OCX 示例

今天看到 DirectSkin5 发布了，顺便总结了下用法：

（一）第一步
Private Sub Form_Load()
    Wbocx1.InitWB
    Wbocx1.SetRootPath 1
    Wbocx1.SetRootPathStr "C:/Program Files/Stardock/DirectSkin/samples/skins/"
    Wbocx1.LoadUIS "xp corona/xp corona.uis"
    Wbocx1.DoWindow Me.hWnd
End Sub

（二）第二步
Private Sub Form_Unload(Cancel As Integer)
    Wbocx1.DetachWindow hWnd
    Wbocx1.UndoWB
End Sub