Private Sub Дерево_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim mevent&

Select Case Button

Case 1

' If MCLK = "RIGTH" Then Me.Кнопка19.Caption = "Сбросить" Else Me.Кнопка19.Caption = "Фиксировать"