Visual Basic.NET - Ayuda treeview

Dim valor As String = "00"

For Each l In listavalores

	If l.ToString.Substring(0, 2) = valor.Substring(0, 2) Then

		Continue For

	Else

		TreeView1.Nodes.Add(l.ToString)

	End If

	valor = l.ToString

Next

For i = 0 To 10

            tv.Nodes.Add(i)

            For j = 0 To 10

                tv.Nodes(i).Nodes.Add(j)

                For k = 0 To 10

                    tv.Nodes(i).Nodes(j).Nodes.Add(k)

                Next k

            Next j

        Next i

Private Sub tv_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tv.AfterSelect

        MsgBox(e.Node.FullPath)

        dim camino as string () = split(e.node.fullpath, "\") 'Usa como separador de niveles \

End Sub

Dim i As Long, j As Long, k As Long

Dim key As String = "", subKey As String = "", subKey2 As String = ""

For i = 0 To 10

	key = i.ToString

	tv.Nodes.Add(key, i)

	For j = 0 To 10

		subKey = key & "_" & j.ToString

		tv.Nodes(key).Nodes.Add(subKey, j)

		For k = 0 To 10

			subKey2 = subKey & "_" & k.ToString

			tv.Nodes(key).Nodes(subKey).Nodes.Add(subKey2, k)

		Next k

	Next j

Next i