dX.Selected = True
            SelectedNodeIsBold = True
        End If
        Set AddCheck = nodX
    End If
End Function
Public Function AddOption( _
        Optional ByVal Key As Variant, _
        Optional ByRef nodParent As Node = Nothing, _
        Optional ByVal Text As String = "", _
        Optional ByVal bBold As Boolean = False _
    ) As ComctlLib.Node
Attribute AddOption.VB_Description = "Adds an option to the control."
Dim vIcon As Variant
Dim nodX As Node
    vIcon = "OPTION"
    If Not (nod