onTreeCheckFull
            vIcon = vIcon &amp; "YES" &amp; Postfix()
        Case OptionTreeCheckNone
            vIcon = vIcon &amp; "NO" &amp; Postfix()
        Case OptionTreeCheckPartial
            vIcon = vIcon &amp; "PART" &amp; Postfix()
        End Select
        If (nodParent Is Nothing) Then
            Set nodX = tvwOpt.Nodes.Add(, , Key, Text, vIcon)
        Else
            Set nodX = tvwOpt.Nodes.Add(nodParent, tvwChild, Key, Text, vIcon)
        End If
        If (bBold) Then
            no