Estuve practicando un poco en VB6, y se me ocurrió intentar aplicar un Theme (.msstyle) de XP a un Form,
Aclaro que es usando API's de "Uxtheme.dll"..
Haber vamos al grano,
Supuestamente debe ser así:
Código
Private Declare Function OpenThemeFile Lib "uxtheme.dll" Alias "#2" (ByVal pszFilename As Long, ByVal pszColor As Long, ByVal pszSize As Long, ByVal hTheme As Long, ByVal dwReserved As Long) As Long
Pasando los parámetros 'correctamente' sería así:
Código
lRet = OpenThemeFile(StrPtr("C:\WINDOWS\resources\Themes\Luna\Luna.msstyles"), StrPtr("Metallic"), StrPtr("NormalSize"), VarPtr(Handle), 0)
Pero no pasa nada , pero si devuelve el Handle del Theme
Para comprobar Intenté aplicar la clase de "WINDOW" a un "BUTTON" usando la API SetWindowTheme, pero no sale nada del supuesto theme aplicado,
Haber si alguien puede ayudarme , estoy totalmente desorientado.
SaluDOS!!!