Sub InitToolbar()
    Dim i As Integer
    Dim hToolbar As Long
    hToolbar = GetWindow(Toolbar1.hWnd, GW_CHILD)
    SetWindowLong hToolbar, GWL_STYLE, GetWindowLong(hToolbar, GWL_STYLE) Or TB_STYLE_FLAT
    For i =  0  To  34 
        ImageListToolBar.ListImages.Add , PictureToolBar(i).Tag, PictureToolBar(i).Picture
    Next i
    For i =  1  To  23 
        With Toolbar1.Buttons(i)
            If Len(.Key) >  0  Then
                .image = .Key
            End If
        End With
    Next i
End Sub

Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Command1_Click()
    Dim st As Long, pt As Long
    
    st = GetDC(TabStrip1.hwnd)
    pt = GetPixel(st,  2 ,  5 )
    
    FrameInTab.BackColor = pt
    Label1.BackColor = pt
...
End Sub

 
Private Sub Form_Activate()
   Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
    Command1_Click 'код выше
    Timer1.Enabled = False
End Sub

   Dim hToolbar As Long
    hToolbar = GetWindow(Toolbar1.hWnd, GW_CHILD)
     SetWindowLong hToolbar, GWL_STYLE, GetWindowLong(hToolbar, _
        GWL_STYLE) Or TB_STYLE_FLAT

    Const WM_USER = &H400
    Const TB_SETSTYLE = WM_USER +  56 
    Const TB_GETSTYLE = WM_USER +  57 
    Const TB_AUTOSIZE = (WM_USER +  33 )
    Const TB_SETBUTTONSIZE = (WM_USER +  31 )
    Call SendMessage(Toolbar1.hWnd, TB_AUTOSIZE,  0 ,  0 )

    TranspContainer1.BackColor = vbMagenta
    TranspContainer1.TransparentColor = vbMagenta

Call CreateDisImageList
Call AddDisImageListBitmap(LoadResPicture("toolbar", vbResBitmap), vbMagenta)

Public Sub CreateDisImageList(Optional lWidth As Integer =  16 , Optional lHeight As Integer =  16 )
    If m_hDisImageList<> 0  Then ImageList_Destroy m_hDisImageList
    m_hDisImageList = ImageList_Create(lWidth, lHeight, ILC_COLOR32 Or ILC_MASK,  1 ,  1 )
    SendMessage m_hToolbar, TB_SETDISABLEDIMAGELIST,  0 , ByVal m_hDisImageList
End Sub

Public Function AddDisImageListBitmap(ByVal hBitmap As Long, Optional ByVal MaskColor As Long = CLR_NONE) As Long
    If m_hToolbar <>  0  And m_hImageList <>  0  Then
        If (MaskColor <> CLR_NONE) Then
            AddDisImageListBitmap = ImageList_AddMasked(m_hDisImageList, hBitmap, MaskColor)
        Else
            AddDisImageListBitmap = ImageList_Add(m_hDisImageList, hBitmap,  0 )
        End If
    End If
End Function

    ' Get the toolbar handle (we cannot just use tbrMain.hwnd as this is a container
    ' window for the actual toolbar control)
    hTBar = FindWindowEx(Toolbar1.hWnd,  0 &, "ToolbarWindow32", vbNullString)
        
'    DeactivateWindowTheme hTBar
    ' The style "TBSTYLE_FLAT" needs to be added.  Although this option is available
    ' in the property pages for the toolbar, it needs to be set here.
    
    ' Get the current style
    lngStyle = SendMessage(hTBar, TB_GETSTYLE,  0 &, ByVal  0 &)
    
    ' Add the TBSTYLE_FLAT style (could also apply other styles here)
    lngStyle = lngStyle Or TBSTYLE_FLAT
        
    ' Set the new style
    Call SendMessage(hTBar, TB_SETSTYLE,  0 &, ByVal lngStyle)

    ' Now add the ImageList's for the normal, hot, and disabled states
    lRes = SendMessage(hTBar, TB_SETIMAGELIST,  0 , ByVal ImageListToolBar.hImageList)
    lRes = SendMessage(hTBar, TB_SETHOTIMAGELIST,  0 , ByVal ImageListToolBarDis.hImageList)
    lRes = SendMessage(hTBar, TB_SETDISABLEDIMAGELIST,  0 , ByVal ImageListToolBarDis.hImageList)
    Call SendMessage(hTBar, TB_AUTOSIZE,  0 ,  0 )
    Toolbar1.Refresh