wICC As Long
End Type
Private Declare Function InitCommonControlsEx Lib "Comctl32.dll" (iccex As
 tagInitCommonControlsEx) As Boolean

Private Const ICC_BAR_CLASSES = &amp;H4
Private Const ICC_COOL_CLASSES = &amp;H400


Public Sub Main()
Dim tIccex As tagInitCommonControlsEx
   On Error Resume Next
   With tIccex
       .dwSize = LenB(tIccex)
       .dwICC = ICC_BAR_CLASSES
   End With
   InitCommonControlsEx tIccex
   On Error GoTo 0

   frmTest.Show
End Sub
</pre><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>