                Node.Image = "OPTIONYES" &amp; sPf
                For lS = Node.FirstSibling.Index To Node.LastSibling.Index
                    If (tvwOpt.Nodes(lS) &lt;&gt; Node) Then
                        If (tvwOpt.Nodes(lS).Image &lt;&gt; "OPTIONNO" &amp; sPf) Then
                            tvwOpt.Nodes(lS).Image = "OPTIONNO" &amp; sPf
                        End If
                    End If
                Next lS
                RaiseEvent OptionClick(Node)
            End If
        Case "CHEC