hing) Then
      If (nodParent.Children &gt; 0) Then
         Set nodChk = nodParent.FirstSibling
      Else
         Set nodChk = Nothing
      End If
    Else
        If (tvwOpt.Nodes.Count &gt; 0) Then
            Set nodChk = tvwOpt.Nodes(1)
        Else
            vIcon = "CHECK_"
            Select Case CheckType
            Case OptionTreeCheckFull
                vIcon = vIcon &amp; "YES" &amp; Postfix()
            Case OptionTreeCheckNone
                vIcon = vIcon &amp; "NO" &amp; Postfix()
 