Hola Gustvao,
Debes añadir un archivo .manifest a tu aplicación, que lo puedes crear tu mismo:
En el bloc de notas pegas esto:
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
version="1.0.0.0"
processorArchitecture="X86"
name="NOMBRE DE TU APLICACIÓN"
type="win32"
/>
<description>DESCRIPCIÓN DE TU APLICACIÓN</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="*"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
</assembly>
Y luego lo guardas con el nombre 'TUAPLICACIÓN.exe.manifest' en el directorio del exe de tu aplicación
A su vez, en tu aplicación haces la llamada al API: (Yo lo pondría en un módulo General)
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Y en el primer Formulario que inicie el programa:
Private Sub Form_Initialize()
InitCommonControls
End Sub
(El resto de forms ya adoptan el estilo XP)
Nota, si exploras tu PC buscando archivos *.manifest encontrarás varios, con copiarlo y cambiarle el nombre basta si insertas el código que te he dicho en tu aplicación.
Por cierto, un truquillo: Si quieres que en tiempo de diseño se vea estilo XP (para ver el diseño gráfico que vas realizando) incluye un VB6.exe.manifest al directorio de Viasual Basic, junto al ejecutable.
Saludos,
Javier