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
Ese código? pero donde le tengo que pegar en un .Bas?