Visual Basic - como puedo trabajar con el tree view

Hola genios de la web del programador, quisiera que por favor me den algunos ejemplos de como usar el tree view de forma sencilla haciendo que lea las carpetas que se encuentran en mi disco. gracias

No se si te refiers a esto, espero que te sirva...
' Declara variables globales
Dim indrag As Boolean ' Indicador de operación arrastrar y colocar.
Dim nodX As Object ' Elemento arrastrado.

Private Sub Form_Load()
' Carga un mapa de bits en un control Imagelist.
Dim imgX As ListImage
Dim BitmapPath As String
BitmapPath = "icons\mail\mail01a.ico"
Set imgX = imagelist1.ListImages.Add(, , LoadPicture(BitmapPath))

' Inicializa el control TreeView y crea varios nodos.
TreeView1.ImageList = imagelist1
Dim nodX As Node ' Crea un árbol.
Set nodX = TreeView1.Nodes.Add(, , , "Primario 1", 1)
Set nodX = TreeView1.Nodes.Add(, , , "Primario 2", 1)
Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "Secundario 1", 1)
Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "Secundario 2", 1)
Set nodX = TreeView1.Nodes.Add(2, tvwChild, , "Secundario 3", 1)
Set nodX = TreeView1.Nodes.Add(2, tvwChild, , "Secundario 4", 1)
Set nodX = TreeView1.Nodes.Add(3, tvwChild, , "Secundario 5", 1)
nodX.EnsureVisible ' Expande el árbol para mostrar todos los nodos.
End Sub

UPS !!! Se me olvido parte del código' Declara variables globales
Dim indrag As Boolean ' Indicador de operación arrastrar y colocar.
Dim nodX As Object ' Elemento arrastrado.

Private Sub Form_Load()
' Carga un mapa de bits en un control Imagelist.
Dim imgX As ListImage
Dim BitmapPath As String
BitmapPath = "icons\mail\mail01a.ico"
Set imgX = imagelist1.ListImages.Add(, , LoadPicture(BitmapPath))

' Inicializa el control TreeView y crea varios nodos.
TreeView1.ImageList = imagelist1
Dim nodX As Node ' Crea un árbol.
Set nodX = TreeView1.Nodes.Add(, , , "Primario 1", 1)
Set nodX = TreeView1.Nodes.Add(, , , "Primario 2", 1)
Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "Secundario 1", 1)
Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "Secundario 2", 1)
Set nodX = TreeView1.Nodes.Add(2, tvwChild, , "Secundario 3", 1)
Set nodX = TreeView1.Nodes.Add(2, tvwChild, , "Secundario 4", 1)
Set nodX = TreeView1.Nodes.Add(3, tvwChild, , "Secundario 5", 1)
nodX.EnsureVisible ' Expande el árbol para mostrar todos los nodos.
End Sub

Private Sub TreeView1_MouseDown _
(Button As Integer, Shift As Integer, x As Single, y As Single)
Set nodX = TreeView1.SelectedItem ' Elemento arrastrado.
End Sub

Private Sub TreeView1_MouseMove _
(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then ' Operación de arrastre.
indrag

Estimado amigo:
En www.ambsoftware.com encontrarás varios ejemplos del uso del control Treeview.
Para localizarlos te recomiendo que utilices el buscador de recursos de la página principal y escribas en la casilla la palabra "treeview".
Espero que esta información te sirva de ayuda.
Fdo.- Alvaro Marín