主题：[求助]帮忙分析代码哪出错了?

If Lsj.Contains(e.Node.Text) = False Then
   Lsj.Add(e.Node.Text)
End If
e.Form.Controls("TextBox2").value =Nothing
For Each s As String In Lsj  
    e.Form.Controls("TextBox2").value += "," & s
Next

If Lsj.count>3 Then
    For Each nd As WinForm.TreeNode In e.Sender.AllNodes
        If nd.Text = Lsj(0) Then
            nd.BackColor = Color.White
            Lsj.RemoveAt(0)
            If lsJ.Count =0 Then
                Exit For
            End If
        End If
    Next  
End If

For Each nd As WinForm.TreeNode In e.Sender.AllNodes
    For Each s As String In Lsj
        If nd.Text = s Then
            nd.BackColor = Color.LightGray
        End If
    Next
Next