بعضی ها میگن بجای تابع InitCommonControls از InitCommonControlsEx استفاده بکن
اما روش زیر هم برام جواب نداد
' dddd
' dddd CCCCCCCCCC
' dddd CCCC
' dddddddddd CCCC aaaaaaaa mmmmmmmmmm mmmmmm eeeeeeee rrrr rr aaaaaaaa
' dddd dddd CCCC aaaa mmmm mmmm mmmm eeee eeee rrrrrrrr aaaa
' dddd dddd CCCC aaaaaaaaaa mmmm mmmm mmmm eeeeeeeeeeee rrrr aaaaaaaaaa
' dddd dddd CCCC aaaa aaaa mmmm mmmm mmmm eeee rrrr aaaa aaaa
' dddd dddd CCCC aaaa aaaa mmmm mmmm mmmm eeee rrrr aaaa aaaa
' dddddddddd CCCCCCCCCC aaaaaaaaaa mmmm mmmm mmmm eeeeeeeeee rrrr aaaaaaaaaa
Private Type tagInitCommonControlsEx
lngSize As Long
lngICC As Long
End Type
Private Declare Function InitCommonControlsEx Lib "comctl32.dll" _
(iccex As tagInitCommonControlsEx) As Boolean
Private Const ICC_USEREX_CLASSES = &H200
Public Function InitCommonControlsVB() As Boolean
On Error Resume Next
Dim iccex As tagInitCommonControlsEx
' Ensure CC available:
With iccex
.lngSize = LenB(iccex)
.lngICC = ICC_USEREX_CLASSES
End With
InitCommonControlsEx iccex
InitCommonControlsVB = (Err.Number = 0)
On Error GoTo 0
End Function
Public Sub Main()
InitCommonControlsVB
'
' Start your application here:
'
frmmanifest.Show
End Sub