ext i
End Function
Public Function AddCheck( _
        Optional ByVal Key As Variant, _
        Optional ByRef nodParent As Node = Nothing, _
        Optional ByVal Text As String = "", _
        Optional ByVal CheckType As OptionTreeCheckTypes = OptionTreeCheckFull,
         _
        Optional ByVal bBold As Boolean = False _
    ) As ComctlLib.Node
Attribute AddCheck.VB_Description = "Adds a checked item to the control."
Dim vIcon As Variant
Dim nodChk As Node
Dim nodX As Node
    If Not (nodParent Is Not