TabStrip и стиль XP

[Lumen]

Здравствуйте.

Собственно как же все-таки заставить TabStrip (или SSTab, но это я так понимаю безнадежно) отображаться в стиле XP. Добавил манифест, InitCommonControls и InitCommonControlsEx с ICC_TAB_CLASSES сделал, все равно не пашет. Искал по форуму, все что предлагается либо не работает, либо глючное. И использовать стилизованные под ХР самопальные компоненты тоже не хочется. Как же быть? Да, и ещё вопрос: когда поверх табстрипа показываю фрейм с элементами управления кнопка в стиле ХР не очень корректно отображается. Как этого избежать? Вот пример отображения.

[AntonGV]

я обычно под кнопку во фрейме подкладываю picturebox без рамок

[Lumen]

AntonGV
Спасибо, помогло. А что с табстрипом делать?

[Хакер]

А что с ним всё-таки не так?

[Lumen]

Не отображается в стиле XP. Хотя остальные элементы управления отображаются нормально. Манифест находится в ресурсах. Использую Microsoft Windows Common Controls 6.0 (SP6). Чтобы работало нормально, делаю так:

Код: Выделить всё

Private Sub Form_Initialize()
InitCommonControls
End Sub


И так:

Код: Выделить всё

Private Sub Form_Load()
Dim initcc As InitCommonControlsExType
initcc.dwSize = Len(initcc)
initcc.dwICC = ICC_USEREX_CLASSES + ICC_TAB_CLASSES
InitCommonControlsEx initcc
...
End Sub


Не работает. Сторонние самописные контролы не хочется использовать. В поиске смотрел, че-та не нашёл ниче толкового...

[Хакер]

Использую Microsoft Windows Common Controls 6.0 (SP6).

А надо 5.

[Lumen]

А с шестыми никак не получтися?
Спасибо, с пятыми заработало.
Последний вопрос: фрейму как-нить можно установить прозрачный фон, а то некрасиво как-то получается. Фрейм серый (Button Face) а табстрип белый (XP).

ЗЫ: И с этим разобрался. Всем спасибо за помощь.