klk happy world

para eso de los skin, tengo un programa k cambia los estilos de windows. el codigo es el siguiente.
En Form
Private Sub Form_Load()
Aplicar_skin Me
End Sub
Private Sub MNUArchivo_Cli ck(Index As Integer)
Unload Me
End Sub
Private Sub MNUCambiarSkin _Click(Index As Integer)
Select Case Index
Case Is = 0
Skin1.LoadSkin App.Path & "\Skins\B-Studio.skn"
Skin1.ApplySki n Form1.hWnd
Case Is = 1
Skin1.LoadSkin App.Path & "\Skins\galaxy.skn"
Skin1.ApplySki n Form1.hWnd
Case Is = 2
Form1.Skin1.Lo adSkin App.Path & "\Skins\green.skn"
Skin1.ApplySki n Form1.hWnd
Case Is = 3
Form1.Skin1.Lo adSkin App.Path & "\Skins\Mac.skn"
Skin1.ApplySki n Form1.hWnd
Case Is = 4
Form1.Skin1.Lo adSkin App.Path & "\Skins\Media.skn"
Skin1.ApplySki n Form1.hWnd
Case Is = 5
Form1.Skin1.Lo adSkin App.Path & "\Skins\metallic.skn"
Skin1.ApplySki n Form1.hWnd
Case Is = 6
Form1.Skin1.Lo adSkin App.Path & "\Skins\Paper.skn"
Skin1.ApplySki n Form1.hWnd
Case Is = 7
Form1.Skin1.Lo adSkin App.Path & "\Skins\TopSecret.skn"
Skin1.ApplySki n Form1.hWnd
Case Is = 8
Form1.Skin1.Lo adSkin App.Path & "\Skins\Web-II.skn"
Skin1.ApplySki n Form1.hWnd
Case Is = 9
Form1.Skin1.Lo adSkin App.Path & "\Skins\Zhelezo.skn"
Skin1.ApplySki n Form1.hWnd
End Select
End Sub
En Modulo:
Public Sub Aplicar_skin(ByVal Formulario As Form)
Form1.Skin1.Lo adSkin App.Path & "\Skins\winaqua.skn"
Form1.Skin1.Ap plySkin Formulario.hWn d
End Sub
Basicamente todo eso funciona con un folder k viene con el, k trae todos estos archivos .skn
Pero!..
No estoy muy seguro de esto.. pero asi como te doy ese ejemplo, d como correr los .skn sobre formularios, (k deseguro tmb se podria en Windows).. te digo k esta el Windows Blind, k con el tambien se puedren crear skins para el windows, y me parece k tan solo con par de comanditos, asi como el form puede cambiar de estilo, = puede cambiar el windows, solo asiendo llamadas a los del Windows Blind.

Suerte, es solo una idea bro.
