Attribute VB_Name = "Module1"
Public Const WM_USER = &H400
Public Const TB_SETSTYLE = WM_USER + 56
Public Const TB_GETSTYLE = WM_USER + 57
Public Const TBSTYLE_FLAT = &H800
Public Const TBSTYLE_LIST = &H1000
'【VB聲明】
'  Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

'【說明】
'  在窗口列表中尋找與指定條件相符的第一個子窗口

'【返回值】
'  Long，找到的窗口的句柄。如未找到相符窗口，則返回零。會設置GetLastError

'【參數表】
'  hWnd1 ----------  Long，在其中查找子的父窗口。如設為零，表示使用桌面窗口（通常說的頂級窗口都被認為是桌面的子窗口，所以也會對它們進行查找）

'  hWnd2 ----------  Long，從這個窗口后開始查找。這樣便可利用對FindWindowEx的多次調用找到符合條件的所有子窗口。如設為零，表示從第一個子窗口開始搜索

'  lpsz1 ----------  String，欲搜索的類名。零表示忽略

'  lpsz2 ----------  String，欲搜索的類名。零表示忽略
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
  (ByVal hWnd1 As Long, _
   ByVal hWnd2 As Long, _
   ByVal lpsz1 As String, _
   ByVal lpsz2 As String) As Long

'【VB聲明】
'  Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

'【說明】
'  調用一個窗口的窗口函數，將一條消息發給那個窗口。除非消息處理完畢，否則該函數不會返回。SendMessageBynum，
'  SendMessageByString是該函數的“類型安全”聲明形式

'【返回值】
'  Long，由具體的消息決定

'【參數表】
'  hwnd -----------  Long，要接收消息的那個窗口的句柄

'  wMsg -----------  Long，消息的標識符

'  wParam ---------  Long，具體取決于消息

'  lParam ---------  Any，具體取決于消息
Private Declare Function SendMessage Lib "user32" Alias _
    "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
    ByVal wParam As Integer, ByVal lParam As Any) As Long


Public Sub SetToolbar(tBar As Toolbar, tBarStyle As Long)
    Dim lngStyle As Long
    Dim lngResult As Long
    Dim lngHWND As Long

    '得到Toolbar的句柄
    lngHWND = FindWindowEx(tBar.hwnd, 0&, _
        "ToolbarWindow32", vbNullString)
    '得到原有的Toolbar的樣式
    lngStyle = SendMessage(lngHWND, _
        TB_GETSTYLE, 0&, 0&)
    '用一個Case語句給Toolbar賦不同的樣式
    Select Case tBarStyle
    Case 1:
        '制作一個圖形在上、文字在下的平面工具欄
        lngStyle = lngStyle Or TBSTYLE_FLAT
    Case 2:
        '制作一個圖形在左、文字在右的平面工具欄
        lngStyle = lngStyle Or TBSTYLE_FLAT _
            Or TBSTYLE_LIST
      End Select
    
    '用API函數實現工具欄的新樣式
    lngResult = SendMessage(lngHWND, _
        TB_SETSTYLE, 0, lngStyle)

    '刷新工具欄
    tBar.Refresh
End Sub