VB6:让IE控件支持XP主题外观！

1. Private m_hMod As Long
2. Private m_hMod2 As Long
3. Private Declare Function InitCommonControlsEx Lib "comctl32.dll" (iccex As tagInitCommonControlsEx) As Boolean
4. Private Type tagInitCommonControlsEx
5.   lngSize As Long
6.   lngICC As Long
7. End Type
8. Private Const ICC_USEREX_CLASSES = &H200
10. Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
11. Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
13. Private Sub Form_Initialize()
14.     Dim iccex As tagInitCommonControlsEx
15.     iccex.lngSize = LenB(iccex)
16.     iccex.lngICC = ICC_USEREX_CLASSES
17.     InitCommonControlsEx iccex
19.     m_hMod = LoadLibrary("shell32.dll")
20.     m_hMod2 = LoadLibrary("explorer.exe")
21. End Sub
23. Private Sub Form_Load()
24.     WebBrowser1.Navigate2 "http://www.google.com/"
25. End Sub
27. Private Sub Form_Terminate()
28.     If m_hMod Then FreeLibrary m_hMod
29.     If m_hMod2 Then FreeLibrary m_hMod2
30. End Sub

注：如果想让窗体上的控件支持XP，需要添加一个Manifest资源