           Case OptionTreeCheckPartial
                vIcon = vIcon &amp; "PART" &amp; Postfix()
            End Select
            Set nodX = tvwOpt.Nodes.Add(, , Key, Text, vIcon)
            If (bBold) Then
                nodX.Selected = True
                SelectedNodeIsBold = True
            End If
            Set AddCheck = nodX
            Exit Function
        End If
    End If
    If Not (pbOptionItemInBranch(nodChk)) Then
        vIcon = "CHECK_"
        Select Case CheckType
        Case Opti