 = .stateMask Or TVIS_CUT
            End If
            lR = SendMessage(tvwOpt.hwnd, TVM_SETITEM, 0&amp;, tVI)
        End With
        hItem = SendMessageLong(tvwOpt.hwnd, TVM_GETNEXTITEM, TVGN_NEXTVISIBLE,
         hItem)
    Loop
    UserControl.Enabled = bState
    PropertyChanged "Enabled"
End Property
Public Property Get Locked() As Boolean
Attribute Locked.VB_Description = "Gets/sets whether the control is locked. 
 When locked, users can view the tree but cannot change the settings."
   Locked = m