例50：工具条的使用

1. 建立一个EXE工程，在默认窗体上放一个ToolBar控件。
2. 在ToolBar中增加两个按钮，如图48.

图48

1. 添加代码：

Sub Form1_ToolBar1_WM_Command(hWndForm As hWnd,wID As ULong)

   Select Case wID

      Case Form1_ToolBar1_Button_1 ' 甲

                MsgBox("甲")

      Case Form1_ToolBar1_Button_2 ' 乙

                  MsgBox("乙")

   End Select
End Sub

1. 运行程序，单击工具条上的按钮，分别弹出对应的消息框。