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

则无法执行