Visual Basic - Treeview

hola programadores:
Necesito llenar un treeview asi
Unidad 1
foto
encontrada
solicitada
original
capitulo N

Me sale hasta motrar los elementos pero Solo en foto debe ir eso de Encontrada, Solicitada les envio mi codigo para que me ayuden

tvwDB.Nodes.Clear
lvwDB.ListItems.Clear

With tvwDB
.Sorted = True
Set mNode = .Nodes.Add()
.LabelEdit = False
.LineStyle = tvwRootLines
End With

For i = 1 To unidad
strTemp = Trim(Str(i))
If Len(strTemp) = 1 Then
strTemp = "0" & Trim(Str(i))
End If

With mNode ' Agregar el primer nodo.
.Text = "Unidad " & strTemp
.Tag = "Biblio"
.Image = "closed"
End With

If i < unidad Then
With tvwDB
Set mNode = .Nodes.Add()
End With
End If
Next

Dim l As String
For i = 1 To unidad
l = i
Set mNode = tvwDB.Nodes.Add(i, tvwChild, , "Original", "closed")
Set mNode = tvwDB.Nodes.Add(i, tvwChild, "f" & i, "Foto", "closed")
Set mNode = tvwDB.Nodes.Add(i, tvwChild, , "Ilustracion", "closed")
Set mNode = tvwDB.Nodes.Add(i, tvwChild, , "Primera Maqueta", "closed")
Next
End Sub