Private Sub OB_add_user_Click()
        If OB_add_user.Value = True Then
            OB_change_user.Value = False
        End If
    OB_change_user_Click
End Sub

Private Sub OB_change_user_Click()
Dim LL As Label
Dim TB As TextBox

    Set LL = Application.ActiveWindow.Document.Label1
    Set TB = Application.ActiveWindow.Document.Rs_numb
    
    If OB_change_user.Value = True Then
            OB_add_user.Value = False
            
        LL.ForeColor = RGB( 0 ,  0 ,  0 )
        TB.SpecialEffect = fmSpecialEffectSunken
        TB.Enabled = True
    Else
        LL.ForeColor = RGB( 255 ,  255 ,  255 )
        TB.Enabled = False
        TB.SpecialEffect = fmSpecialEffectFlat
    End If
End Sub