设置工具栏为新的样式

Private Sub SetToolbar(tBar As Toolbar)
Dim lngResult As Long
Dim lngHWND As Long
Dim lngStyle As Long
得到Toolbar的句柄

lngHWND = FindWindowEx(tBar.hwnd, 0&, "ToolbarWindow32", vbNullString)
得到原有的Toolbar的样式

lngStyle = SendMessage(lngHWND, TB_GETSTYLE, 0&, 0&)
设置一个图形在上、文字在下的平面工具栏

lngStyle = lngStyle Or TBSTYLE_FLAT
用API函数实现工具栏的新样式

lngResult = SendMessage(lngHWND, TB_SETSTYLE, 0, lngStyle)
刷新工具栏

tBar.Refresh
End Sub

Private Sub exitfile_Click()
Unload Me
End Sub

Private Sub Form_Load()
调用函数改变工具栏

Call SetToolbar(Me.Toolbar1)

End Sub