 Enabled = UserControl.Enabled
End Property
Public Property Let Enabled(ByVal bState As Boolean)
Dim tVI As TVITEM
Dim hItem As Long
Dim lR As Long

    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 And Not TVIS_CUT
            Else
                .state