_bLocked
End Property
Public Property Let Locked(ByVal bState As Boolean)
Dim tVI As TVITEM
Dim hItem As Long
Dim lR As Long
Dim lColor As Long
   
   m_bLocked = bState

   tVI.mask = TVIF_STATE
   hItem = SendMessageLong(tvwOpt.hwnd, TVM_GETNEXTITEM, TVGN_ROOT, 0&amp;)
   Do While hItem &lt;&gt; 0
       With tVI
           .hItem = hItem
           .mask = TVIF_STATE
           .stateMask = TVIS_CUT
           If (bState) Then
              .state = .stateMask Or TVIS_CUT
           Else
               .