Private Declare Function SetWindowTheme Lib "uxtheme.dll" (ByVal hwnd As Long, ByVal pszSubAppName As Long, ByVal pszSubIdList As Long) As Long
Private Sub Form_Load()
Call SetWindowTheme(ListView1.hwnd, StrPtr("explorer"), 0)
Call SetWindowTheme(TreeView1.hwnd, StrPtr("explorer"), 0)
End Sub
Keterengan:
Microsoft Windows Common Controls 5.0
API-ucListView 1.0
API-ucTreeView 1.3
Ketentuan:
Manifest
Advertisement
