雖然WindowsXP的界面非常華麗。但是令人遺憾的是，我們用VB寫的程序除了菜單和窗口的外觀是XP風格外，其他控件還是一如既往的是普通風格。我想，有的程序在XP下有XP的風格，VB也一定有辦法實現XP的風格。後來筆者在網上看到一篇介紹XML的文章，又在網上找到了一篇實現XP風格的文章，經過自己的實踐，終於找到了VB程序實現XP風格的辦法。為了使其他的網友不至於走像我這樣的多的彎路，將此辦法寫出來，與大家共同提高！！
具體的實現方法如下：
①：在你的窗體加入代碼。如果是多個窗口，可以將此代碼放到模塊中。
代碼如下：
'聲明API函數
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Private Sub Form_Initialize()
InitCommonControls
End Sub
注意：千萬不要在Form_load()事件下寫InitCommonControls這句話，否則你的窗體會啟動不了。（不要怪我沒告訴你啊~~~~）
②：建立一個和你的.exe同名的.exe.manifest文件（假如：如果你最後編譯好的文件名為WindowXPStyle.exe，則建立一個文件名為WindowXPStyle.exe.manifest的文件），並且此文件必須存在於和你Exe文件的同一目錄下。
以WindowXPStyle.exe為例，則這個WindowXPStyle.exe.manifest的文件的內容如下：
＜?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.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＞
將以上內容保存為WindowXPStyle.exe.manifest。並且和執行文件放在一個目錄下（一定要記住）。
到此為止，我們的程序已經完成，不過在VB的設計環境下運行是看不到XP效果的。必須編譯成可執行文件運行才可以。（因為這個我試了不知多少遍，以為VB程序就是實現不了XP效果呢~~，沒想到必須編譯成執行文件才可以）。
運行效果如下圖所示：
相信大家也看到了不足之處，就是放在FRAME控件中的單遠按鈕有些“麻煩”！為了解決此問題，可以將單選按鈕放在PICTURE控件中（以PICTURE控件作為容器），再將PICTURE控件放在FRAME控件中，就可以了。
常見問題和注意事項
由於VB6自身的原因，Windows XP再一次給我們留了一些難題：
一、工具欄問題：工具欄控件一定要用Microsoft Windows Common Controls 5.0，而不要用Microsoft Windows Common Controls 6.0。因為此InitCommonControls API函數是位於comctl32.dll（Microsoft Windows Common Controls 5.0控件的動態鏈接庫中）。
二、圖形風格按鈕的問題：很遺憾，我們不能再使用Graphical風格的命令按鈕（即Style=1的命令按鈕控件）了。因為一旦將命令按鈕的Style屬性設為1，那麼它將失去Windows XP風格。
只要注意以上幾點，並采取相應的措施，VB編寫的程序在Windows XP中看上去還是很華麗的！如下圖所示：
注：其它語言寫的程序也是一樣，實現起來不會有VB這麼多的問題。如DELPHI、VC等，連API函數都可以直接使用，不用事先聲明。相對來說更簡單！
