在VB中如何用控件做一个XP式的滚动条?

用manifest文件解决，在应用程序所在目录下做一个 你的程序名.exe.manifest 文件，以utf-8格式保存，内容如下：

<?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" rocessorArchitecture="X86"
name="CompanyName.ProductName.YourApp"
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>

注意在VB的运行环境下是看不见效果的，编译成exe后直接运行就有了。不只是滚动条，连按钮、复选框