VB程序實現XP效果的界面

具體的實現方法如下：　　

　　①：在你的窗體加入代碼。如果是多個窗口，可以將此代碼放到模塊中。　　

　　代碼如下：　　

　　'聲明API函數
　　PrivateDeclareSubInitCommonControlsLib"comctl32.dll"()
　　PrivateSubForm_Initialize()
　　InitCommonControls
　　EndSub　

　　注意：千萬不要在Form_load()事件下寫InitCommonControls這句話，否則你的窗體會啟動不了。（不要怪我沒告訴你啊~~~~）　

　　②：建立一個和你的.exe同名的.exe.manifest文件（假如：如果你最後編譯好的文件名為WindowXPStyle.exe，則建立一個文件名為WindowXPStyle.exe.manifest的文件），並且此文件必須存在於和你Exe文件的同一目錄下。　

　　以WindowXPStyle.exe為例，則這個WindowXPStyle.exe.manifest的文件的內容如下：　　

　　
　　　
　　version="1.0.0.0"
　　processorArchitecture="X86"
　　name="CompanyName.ProductName.YourApp"
　　type="win32"
　　/>
　　Yourapplicationdescriptionhere.
　　
　　
　　type="win32"
　　name="Microsoft.Windows.Common-Controls"
　　version="6.0.0.0"
　　processorArchitecture="X86"
　　publicKeyToken="6595b64144ccf1df"
　　language="*"
　　/>
　　
　　
　　　

　　將以上內容保存為WindowXPStyle.exe.manifest。並且和執行文件放在一個目錄下（一定要記住）。　　

->