0) Then
            lS = nodParent.Child.Index
            For lI = lS To lS + lChildren - 1
                sI = Left$(tvwOpt.Nodes(lI).Image, 6)
                If (sI = "CHECK_") Then
                    pErr 2
                    pbCheckValidForOption = False
                    Exit For
                End If
            Next lI
        End If
    Else
        pErr 1
    End If
End Function
Property Set Font(sFnt As StdFont)
Attribute Font.VB_Description = "Gets/sets the font used to draw the items in
