t.Style
End Property
Property Let Style(eStyle As ComctlLib.TreeStyleConstants)
    If (tvwOpt.Style &lt;&gt; eStyle) Then
        tvwOpt.Style = eStyle
        PropertyChanged "Style"
    End If
End Property
Property Get SelectedNode() As ComctlLib.Node
   Set SelectedNode = tvwOpt.SelectedItem
End Property
Property Get NodesCollection() As ComctlLib.Nodes
   Set NodesCollection = tvwOpt.Nodes
End Property
Property Get Nodes(Item As Variant) As ComctlLib.Node
Attribute Nodes.VB_Description = "Gets a refere