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