rechercher une valeur dans treeview

bonjour,
voici en image mon projet :
Pièce jointe 192836

voici mon code de recherche dans treeview1 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        If Me.TreeView1.Nodes.Count > 0 Then
            If TextBox1.Text.Length > 0 Then
                Dim tc As TreeNode() = Me.TreeView1.Nodes.Find(TextBox1.Text, True)
                For i = 0 To tc.Length - 1
                    TreeView1.SelectedNode = tc(i)
                    TreeView1.SelectedNode.ForeColor = Color.Red
                    TreeView1.SelectedNode.ExpandAll()
                Next i
            Else
                MessageBox.Show("Veuillez entrer une valeur", "Valeur", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        End If
    End Sub

mon problème c'est quand je entre un valeur (ex : 99). il ce passe rien ?
Pouvez-vous me dire ou est l'erreur dans mon codes pour ça fonctionne?
Merci pour la réponse,