Ejemplo

Ejemplo:

A continuación se encuentra un ejemplo sencillo que les enseñará cómo aplicar dichos Skins a un formulario, además se mostrarán las propiedades y funciones con las que cuenta.
Nota: Es aconsejable implementarlo cuando estemos por compilar y no cuando estemos construyendo algún proyecto ya que de haber algún error este podría provocar el cierre de Visual Basic y no nos permitirá guardar los cambios de nuestro proyecto.

Option Explicit

' Declaramos cSkin como la clase ClsSkinner.
 Dim cSkin As ClsSkinner

Private Sub Form_Load()

' Creamos e inicializamos a cSkin
 Set cSkin = New ClsSkinner

' Esto es si queremos que el área del cliente se pinte con el tema del skin.
 ' Ojo!! esto hará que los controles Labels, Image, Shapes y Line que estén directamente sobre el formuario no se muestren.
 ' En el caso que no querramos que esto pase lo dejamos = False.
 cSkin.PaintClientArea = True

' Indicamos el path donde debe leer el archivo.Skin
 cSkin.LoadSkinFromFile App.Path & "\Comander.Skin"

' Si quisiéramos leer el Skin desde un archivo de recursos llamamos a la función. LoadSkinFromResource
 ' Donde 101 es el index y "SKIN" es la sección.
 cSkin.LoadSkinFromResource 101, "SKIN"

' Aplicamos el Skin a nuestro Formulario.
 cSkin.HookForm Me.hwnd

End Sub

Private Sub Form_Unload(Cancel As Integer)

' Detenemos la Sublcasificación.
 cSkin.UnHookForm Me.hwnd

' Descargamos la clase de la memoria
 Set cSkin = Nothing

End Sub