Visual Basic - Como Agregar un Icono a Un ListBox

mi deseo es que con un listbox o otro componente pueda agregar iconos, que por ejemplo al momento de darle doble click en ese icono se me pueda abrir un formulario para agregar datos y posteriormente que quede ese documento con el mismo icono en el listbox como la raiz del icono principal "Como el Explorador de Windows"

Atentamente;

Kevin Harnolld Vechara Aguila
ElVirux

Puedes usar el control ListView "Como el Explorador de Windows" ;-)

Juan podrias ser un poco mas claro por que lo eh intentado hasta con un treeview y no he podido si me mostraras un ejemplo.

Gracias te estare Agradecido

Kevin Hanolld Vechara Aguila
ElVirux

Te pongo un ejemplo. Necesitas un formulario con un ListView, 2 ImageList(imlIcons y imlSmallIcons) con 3 imágenes cada uno, y un array de 4 controles option(esto último es opcional ya que sólo sirve para mostrar las 4 vistas del ListView).

Private Sub Form_Load()
Dim i As Integer, aux As ListItem
With ListView1
Set .Icons = imlIcons
Set .SmallIcons = imlSmallIcons
'Añade 3 elementos a la lista
For i = 1 To 3
.ListItems.Add , , "Item " & CStr(i), i, i
Next i
End With
Set aux = ListView1.ListItems(1)
'Añade 3 subelementos al elemento 1 de la lista
For i = 1 To 3
aux.ListSubItems.Add , , "SubItem " & CStr(i), i
Next i
End Sub

Private Sub Option1_Click(Index As Integer)
'Cambia el tipo de vista del listview
ListView1.View = Index
End Sub