 OptionTreeCheckNone) And InStr(sImage, "NO") = 0 Then
         tvwOpt_NodeClick tvwOpt.Nodes(Item)
      End If
   End If
End Property
Public Property Get HideSelection() As Boolean
Attribute HideSelection.VB_Description = "Gets/sets whether the selection
 rectangle is visible when the control is out of focus."
    HideSelection = tvwOpt.HideSelection
End Property
Public Property Let HideSelection(ByVal bState As Boolean)
    tvwOpt.HideSelection = bState
End Property

Public Property Get IconSet() As Opti