Toolbar的tbrCheck样式下如何让Value为按下时按钮无响应

Toolbar的tbrCheck样式下怎么让Value为按下时按钮无响应
我的意思是这样，Toolbar有几个按钮，我想要保证至少有一个按钮被按下了。样式里我都设置成了tbrCheck，当按钮被按下后，再点它时不会再弹起而是没有动作，这个要怎么弄？我在里面加了下面的代码也没用

Private Sub Toolbar_ButtonClick(ByVal Button As MSComCtlLib.Button)

    On Error Resume Next

    Select Case Button.Key

        Case "AA"

            If Toolbar.Buttons("AA").Value = tbrUnpressed Then

                Toolbar.Buttons("AA").Value = tbrPressed

                Exit Sub

            End If

            Toolbar.Buttons("BB").Value = tbrUnpressed

        Case "BB"

            If Toolbar.Buttons("BB").Value = tbrUnpressed Then

                Toolbar.Buttons("BB").Value = tbrPressed

                Exit Sub

            End If

            Toolbar.Buttons("AA").Value = tbrUnpressed

    End Select

Exit Sub

------解决方案--------------------

Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)

  Select Case Button.Caption

            Case "1"

            MsgBox "点击了【功能1】"

            If Toolbar1.Buttons(1).Value = tbrUnpressed Then