P.S. "http://bbs.vbstreets.ru/viewtopic.php?p=15689#15689" - пробовал не получаеться почему-то.
в модуле пишу:
- Код: Выделить всё
Public Type TagInitCommonControlsEx
dwSize As Long
dwICC As Long
End Type
Public Declare Function InitCommonControlsEx Lib "comctl32.dll" (iccex As TagInitCommonControlsEx) As Long
Sub Main()
On Error Resume Next
Dim iccex As TagInitCommonControlsEx
iccex.dwICC = ICC_USEREX_CLASSES
iccex.dwSize = LenB(iccex)
InitCommonControlsEx iccex
Load Form1
Form1.Show
End Sub
Startup object ставлю main sub
А получаеться: