Agrega esto:
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Dim comprobacion As String
Option Explicit
Y esto:
Private Sub Form_Initialize()
InitCommonControls
End Sub
Despues deberas dejar un manifest, (Programa.exe.manifest):
<?xml version="1.0" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<description>Mi programa</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
publicKeyToken="6595b64144ccf1df"
language="*"
processorArchitecture="*" />
</dependentAssembly>
</dependency>
</assembly>
Un saludo