StatusBar: на одной из панелей иконка+текст - VB

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

Есть VB-based StatusBar из 3-х панелей.
Хочется нарисовать достойную картинку + текст на 3-й панели.
Через API я его целиком рисовать умею, но не хочу, ибо уже есть (да и перерисовки замучаюсь отрабатывать).
Картинка через VB эта ерунда: 256цветов, да еще срезает, надо от этого уходить.
Если текст писать через VB, то картинка на него наложится.
Поэтому тестируем так:

StBarCommand_Click()
     lngIcon  
    lngIcon = LoadImage(App.hInstance, MAKEINTRESOURCE(), IMAGE_ICON, , , LR_DEFAULTCOLOR)
     SendMessageLong(StatusBar1.hwnd, SB_SETICON, ,  lngIcon)
    SetText StatusBar1.hwnd, , SBT_SUNKEN, 

  SetText(hStatBar  , _
                   bPart  , _
                   wNewDrawOp  , _
                   sText  )

    wCurDrawOp  

   wCurDrawOp = GetCurDrawOp(hStatBar, bPart, False)

   SendMessage hStatBar, SB_SETTEXT,  bPart  wNewDrawOp,  sText

    wCurDrawOp <> wNewDrawOp  InvalidateRect1 hStatBar,  , True

  GetCurDrawOp(hStatBar  , _
                             bPart  , _
                             fRtnString  )  

    dwRtn  

   dwRtn = SendMessage(hStatBar, SB_GETTEXTLENGTH,  bPart, )

   dwRtn = (dwRtn  &HFFFF0000) \ &HFFFF&

    fRtnString 

        dwRtn
          SBT_SUNKEN:    GetCurDrawOp = 
          SBT_NOBORDERS: GetCurDrawOp = 
          SBT_POPOUT:    GetCurDrawOp = 

      GetCurDrawOp = dwRtn

 

Все замечательно, имеем картинка без срезаний, справа текст.
Делаем form_resize, текст исчезает.
Что там надо отрабатывать (думаю какой-то msg через сабклассинг статусбара мочить) чтоб все нормально было?
М.б. просто какой пример по теме простенький...

Решение задачи: «StatusBar: на одной из панелей иконка+текст»

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

                            <font color="blue">Private</font> <font color="blue">Sub</font> StBarCommand_Click()
    <font color="blue">Dim</font> lngIcon <font color="blue">As</font> <font color="blue">Long</font>
    lngIcon = LoadImage(App.hInstance, MAKEINTRESOURCE(<font color="darkblue"><b>135</b></font>), IMAGE_ICON, <font color="darkblue"><b>16</b></font>, <font color="darkblue"><b>16</b></font>, LR_DEFAULTCOLOR)
    <font color="blue">Call</font> SendMessageLong(StatusBar1.hwnd, SB_SETICON, <font color="darkblue"><b>2</b></font>, <font color="blue">ByVal</font> lngIcon)
    <font color="00AA00">'SetText StatusBar1.hwnd, 2, SBT_SUNKEN, <font color="teal">"Test text"</font></font>
    StatusBar1.Panels(<font color="darkblue"><b>3</b></font>).Text = <font color="teal">"       Test text"</font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        