Как запретить редактирование строки в TreeView? - VB

Private Sub TV2_BeforeLabelEdit(Cancel As Integer)
If Это_Справочник = True Then
    ' переименовывать не будем
    Cancel = 1
Else
 
End If
End Sub
' ------------------------------------------------------
Function Это_Справочник() As Boolean
On Error GoTo Это_Справочник_Err
If TV2.SelectedItem.Parent.Key = 'RID' Then
    Это_Справочник = True
Else
    Это_Справочник = False
End If
 
Это_Справочник_Exit:
    Exit Function
 
Это_Справочник_Err:
    Это_Справочник = False
    Resume Это_Справочник_Exit
 
End Function
' ------------------------------------------------------