Toolbar

[KPEATOP]

Пытаюсь сделать так: когда нажимаю на отжатаю кнопку на панели инструментов, чтоб она становилась нажатой и оставалась в таком же виде. А когда нажимаю на нажатую кнопку, чтоб она становилась отжатой. Первое получается, второе-нет. Почему? Где неправильно:

Код: Выделить всё

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Index
    Case 1
         If Button.Value = tbrUnpressed Then
            Button.Value = tbrPressed
         ElseIf Button.Value = tbrPressed Then
            Button.Value = tbrUnpressed
         End If
    Case 2
.............   
    End Select
End Sub

[KPEATOP]

Button.Value = 0 всегда. И когда кнопка нажатая и когда отжатая. Почему так ? Когда она нажатая должно быть Button.Value = 1. Разве не так?