Usar la propiedad Image de los nodos o elementos para usarlos como CheckBox con imagenes propias

Para el código siguiente se necesitan crear dos gráficos que se deben colocar en un control ImageList. A la imagen ” NO seleccionada ” dentro del ImageList, se debe establecer en la propiedad Key el valor False, y la otra imagen con el Valor True. Por último se debe enlazar el Imagelist con el control TreeView , desde la ventana de propiedades en la ficha General, opción ImageList.

Private Sub Form_Load()
Dim El_Nodo As Node
Dim Child_Nodo As Node
Dim i As Integer
With TreeView1
‘ Estilo del Treeview
.LineStyle = tvwRootLines
.Style = tvwTreelinesPlusMinusPictureText
‘Agrega el nodo principal
Set El_Nodo = .Nodes.Add(, , , ” Lista “)
‘Le cambia el color a la fuente del nodo raíz
El_Nodo.ForeColor = vbRed
‘ . y lo expande
El_Nodo.Expanded = True
‘ Agrega 5 elementos
For i = 0 To 5
‘ La imagen que le asigna es la ” NO seleccionada “
Set Child_Nodo = .Nodes.Add(El_Nodo, tvwChild, , ” Elemento ” & i, “False”)
Next
‘ Le asigna la imagen ” seleccionado “, al ultimo nodo
Child_Nodo.Image = “True”
End With
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
‘Cambia la imagen del nodo al hacer clic
If Node.Image = “False” Then
‘Imagen seleccionada
Node.Image = “True”
Node.Tag = True
Else
‘Imagen NO seleccionada
Node.Image = “False”
Node.Tag = False
End If
‘Muestra el valor en el caption del formulario
Me.Caption = ” Seleccionado: ” & Node.Tag
End Sub

Fuente: www.recursosvisualbasic.com