TreeNode hacer funcion recursiva para mostrar Directorios (VB.NET)

[chcma]

Hola buenas tardes,

Estoy intentando cargar en un TreeNode todos los directorios existentes en C:\ aun que solo me llega a cargar la primera carpeta de C:\ y sin sus subcarpetas.

Es decir:

+ C:\
Apache2


El código que tengo es el siguiente:

Código:

    Private dirRaiz = "C:\"
    Private objDirRaiz As New DirectoryInfo(dirRaiz)
    Private Sub frmSeleccionarDir_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CargarHijos(tvDirectorios.Nodes(0), objDirRaiz)
    End Sub

    Private i As Integer = 1
    Private Sub CargarHijos(ByVal NodoPadre As TreeNode, _
    ByVal ObjDir As DirectoryInfo)
        Dim Hijo As DirectoryInfo
        Try
            For Each Hijo In ObjDir.GetDirectories
                Hijo = New DirectoryInfo(Hijo.FullName)
                With NodoPadre.Nodes.Add(Hijo.Name)
                    .ImageIndex = 0
                    CargarHijos(tvDirectorios.Nodes(i), Hijo)
                End With
                i += 1
            Next
        Catch e As System.Exception
            Exit Sub
        End Try
    End Sub

Bueno, si alguien me puede ayudar e indicarme donde está el fallo, se lo agradecería mucho.

Saludos Cordiales.