Visual Basic.NET - Treeview

Hola Buenos dias a todos. Estoy haciendo un treeview en Visual Basic pero a la hora de añadir los nodos me muestra nada mas que dos carpetas (estan dentro de un pendrive) alguien sabe como hacer que se muestre todas las subcarpetas?

Este es mi codigo

With Me.TreeView1
Dim info As New DirectoryInfo(pen.RootDirectory.ToString)
Dim carpeta As DirectoryInfo = New DirectoryInfo(pen.RootDirectory.ToString)
.Nodes.Add(info.Root.ToString)
For Each d As System.IO.DirectoryInfo In carpeta.GetDirectories()
.Nodes(0).Nodes.Add(d.ToString)
Next
End With

Yo para usar el treeview siempre uso funciones recursivas porque asi solo abres un directorio y el siguiente subdirectorio.

pero como lo haces? porque con esto solo me abre el directorio raiz