А как у Tabstrip изменить цвет фона? - VB

Формулировка задачи:

Тот кусочек что выглядывает (повторяет цвет формы?).
Внутренние органы я замазываю так (без градиента но похоже на правду):

Dim st As Long, pt As Long
  st = GetDC(TabStrip1.hwnd)
  pt = GetPixel(st, 2, 5)
  ReleaseDC TabStrip1.hwnd, st
    
  'PictureGeneral
  PictureGeneral.BackColor = pt
  FrameOriginal.BackColor = pt
...

А вот сейчас решил вставить tabstrip2 внутрь tabstrip1.
Т.е. на самом деле внутрь картинки с цветом фона =pt
Т.е. фон tabstrip2 должен быть равен =pt

Решение задачи: «А как у Tabstrip изменить цвет фона?»

textual
                            Листинг программы 
                        

                            Case WM_PAINT:
...
   Case WM_ERASEBKGND:
      the_hdc = GetDC(Form1.TabStrip1.hwnd)
      cr = GetSysColor(COLOR_BTNFACE)
      the_brush = CreateSolidBrush(vbWhite)
      hbmDstOld = SelectObject(the_hdc, the_brush)
      GetClientRect Form1.TabStrip1.hwnd, rc
      ExtFloodFill the_hdc, rc.Right - 3, 3, cr, FLOODFILLSURFACE
      SelectObject the_hdc, hbmDstOld
      ReleaseDC Form1.TabStrip1.hwnd, the_hdc

      NewTabStrip1WindowProc = 1
      Exit Function

                        