Crear una jeraquia con TreeView

[polielb]

te paso el codigo que encontre y lo agregue a mi trabajo, es para agregar a la lista hago una consulta donde esta agrupado por Areas y luego los dptos.

Sub CargoGrupos()

Dim ant As String
Dim i As Long, j As Long
Dim sp As String, sh As String
'cargo Grupo de USUARIOS
Randomize

Tgrupos.Nodes.Clear
Set Temporal = DE.Agenda.Execute("SELECT Usuarios.CodGrupo, Usuarios.CodUsu, Usuarios.Contraseña, Usuarios.NombreLargo, GrupoDeUsuarios.Nombre, Usuarios.Nombre AS NomUsuario FROM Usuarios INNER JOIN GrupoDeUsuarios ON usuarios.CodGrupo = GrupoDeUsuarios.CodGrupo ORDER BY Usuarios.CodGrupo, Usuarios.CodUsu")
With Temporal
If .State = 0 Then
.Open
End If
.MoveFirst
ant = Temporal("codgrupo")
i = 1
j = 0
GoSub PonerTitulo
sp = "nodo" & CStr(i)
Do Until .EOF
If ant = Temporal("codgrupo") Then
j = j + 1
sh = sp & "-" & CStr(j)
Tgrupos.Nodes.Add sp, tvwChild, sh, Temporal("nombrelargo")
.MoveNext
Else
ant = Temporal("codgrupo")
i = i + 1
sp = "nodo" & CStr(i)
GoSub PonerTitulo
End If
Loop
End With
Exit Sub

PonerTitulo:
sp = "nodo" & CStr(i)
Tgrupos.Nodes.Add , , sp, Temporal("nombre") '& CStr(i)
Return

End Sub

esto lo encontre en la paguina del guille
lo que necesito, si me lo podes averigura el checkbox del treeview como cuando tilda corroboro a que item corresponde, o sea, como reconocer el index del item que tildo