大虾请进!!关于Toolbar控件的使用

Question

我在用Toolbar是,设置了两个按钮,一个试运行(run),另一个是暂停(stop),我想在点击运行(run)后,运行按钮不能使用,此时暂停按钮(stop)可以使用,当在按下暂停按钮时,运行按钮(run)可以使用了,尔暂停按钮(stop)不可使用.
   以下是我的代码,实现不了以上功能,你能帮我改改吗?
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
         Select Case Button.Key
               Case "run"
                    Button.Enabled = False
 CC:                Button.Enabled = True
                   GoTo DD
               Case "stop"
                    GoTo CC
DD:                 Do While EndSign = 0
                    Loop
               Case "clear"
        End Select
 End Sub

Answer 1

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
         Select Case Button.Key
               Case "run"
                    Button.Enabled = False
               Case "stop"
                     Toolbar1.buttons("run").enabled=true
                     button.enabled=false
               Case "clear"
        End Select
 End Sub