dMessageLong tvwOpt.hwnd, TVM_SETBKCOLOR, 0, -1
         m_cTVB.Attach tvwOpt, UserControl.Parent.hwnd
      End If
   End If
End Sub
Public Property Get NodeCheckType(ByVal Item As Variant) As OptionTreeCheckTypes
Dim sItem As String
   sItem = tvwOpt.Nodes(Item).Image
   Select Case True
   Case InStr(sItem, "YES")
      NodeCheckType = OptionTreeCheckFull
   Case InStr(sItem, "NO")
      NodeCheckType = OptionTreeCheckNone
   Case InStr(sItem, "PART")
      NodeCheckType = OptionTreeCheckPartial
   End S