nd
   Else
      ForeColor = UserControl.ForeColor
   End If

End Property

Public Property Get SingleClickExpand() As Boolean
Attribute SingleClickExpand.VB_Description = "Gets/sets whether nodes
 automatically expand when clicked and contract when left."
Dim lStyle As Long
    lStyle = GetWindowLong(tvwOpt.hwnd, GWL_STYLE)
    SingleClickExpand = ((lStyle And TVS_SINGLEEXPAND) = TVS_SINGLEEXPAND)
End Property
Public Property Let SingleClickExpand(ByVal bState As Boolean)
Dim lStyle As Long
    lStyle = Ge