Option Explicit
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" ( _
     ByVal hwnd As Long, _
     ByVal nIndex As Long, _
     ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" ( _
     ByVal hwnd As Long, _
     ByVal nIndex As Long) As Long
Private Const GWL_STYLE As Long = -16
Private Const TBSTYLE_TRANSPARENT As Long = &H8000
 
Private Sub Form_Load()
    Dim Old As Long
    Old = GetWindowLong(Toolbar1.hwnd, GWL_STYLE)
    SetWindowLong Toolbar1.hwnd, GWL_STYLE, Old Or TBSTYLE_TRANSPARENT
End Sub

Gru?
Tyson