VB的toolbar的用法

1.toolbar中需要check的按钮组，式样应都选为2，既tbrButtonGroup，且这些button的index必须连续，否则被视为不同的buttongroup；

2.如果button是check类型的，则按下时的value为tbrPressed，但如果是普通的button，则按下时的value为0，如果判断语句写成

If Toolbar1.Buttons(4).Value = tbrPressed Then
        Dim r As MapObjects2.Rectangle
        Set r = Map1.Extent
        r.ScaleRectangle 0.5
        Set Map1.Extent = r
        Map1.Refresh
    End If

则无法执行