CrtOff97Toolbars

'4. Add this Sub to the General Declarations Section as well:

Public Sub SetTBar97(TBar As Toolbar)
    Dim lTBarStyle As Long, lTBarHwnd As Long
    lTBarHwnd = FindWindowEx(TBar.hWnd, 0&, "ToolbarWindow32", vbNullString)
    lTBarStyle = SendMessage(lTBarHwnd, TB_GETSTYLE, 0&, 0&)
    lTBarStyle = lTBarStyle Or TBSTYLE_FLAT
    SendMessage lTBarHwnd, TB_SETSTYLE, 0, lTBarStyle
    TBar.Refresh
End Sub

'5. Add a Module and add this to it:

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

'6. You can make the Toolbars Office 97 Style with:

SetTBar97 Toolbar1
'Toolbar1, of course, being your toolbar control's name.

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWndParent As Long, ByVal hWndChildWindow As Long, ByVal lpClassName As String, ByVal lpsWindowName As String) As Long
Const TB_SETSTYLE = WM_USER + 56
Const TB_GETSTYLE = WM_USER + 57
Const WM_USER = &H400
Const TBSTYLE_FLAT = &H800

'4. Add this Sub to the General Declarations Section as well:

Public Sub SetTBar97(TBar As Toolbar)
Dim lTBarStyle As Long, lTBarHwnd As Long
lTBarHwnd = FindWindowEx(TBar.hWnd, 0&, "ToolbarWindow32", vbNullString)
lTBarStyle = SendMessage(lTBarHwnd, TB_GETSTYLE, 0&, 0&)
lTBarStyle = lTBarStyle Or TBSTYLE_FLAT
SendMessage lTBarHwnd, TB_SETSTYLE, 0, lTBarStyle
TBar.Refresh
End Sub

'5. Add a Module and add this to it:

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

'6. You can make the Toolbars Office 97 Style with:

SetTBar97 Toolbar1
'Toolbar1, of course, being your toolbar control's name.