Foro de elhacker.net

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