Making your VB6 program have a Windows XP style.

[|G3|]

Firstly you need to download this dll: http://www.dll-files.com/dllindex/dl...shtml?comctl32

Place this in your program's folder.

Now we have to make a new file. Create a new .txt file in your program's folder. Inside this file put this:

<?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="CompanyName.ProductName.YourAppName" 
        type="win32" />
    <description>Your application description here</description>
    <dependency>
        <dependentAssembly>
            <assemblyIdentity 
                type="win32" 
                name="Microsoft.Windows.Common-Controls" 
                version="6.0.0.0" 
                processorArchitecture="X86" 
                publicKeyToken="6595b64144ccf1df" 
                language="*" />
        </dependentAssembly>
    </dependency>
</assembly>

And name the file like this: Your-program's-name.exe.manifest
So if you program was named: Program1.exe
The file would be named: Program1.exe.manifest

Now you have to edit your program.
Put this in:

Private Declare Function InitCommonControlsEx Lib "comctl32.dll" _
   (iccex As tagInitCommonControlsEx) As Boolean
   
Private Type tagInitCommonControlsEx
   lngSize As Long
   lngICC As Long
End Type

Private Const ICC_USEREX_CLASSES = &H200

And this

Private Sub Form_Load()
        InitCommonControlsVB
End Sub

Public Function InitCommonControlsVB() As Boolean
   On Error Resume Next
   Dim iccex As tagInitCommonControlsEx
   ' Ensure CC available:
   With iccex
       .lngSize = LenB(iccex)
       .lngICC = ICC_USEREX_CLASSES
   End With
   InitCommonControlsEx iccex
   InitCommonControlsVB = (Err.Number = 0)
   On Error GoTo 0
End Function

And now you are finished. Your program should have a Windows XP style.

Any problems? Just ask!
Helped? +rep please!

Have Fun!