Foro de elhacker.net

Wenas,

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í:

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í:

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   :huh:
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 :P, estoy totalmente desorientado.

SaluDOS!!!