Treeview list

[Web]

Bom dia a todos! Usando o VBA no Access coloquei dos objetos no FORM, um treeview (TreeCtrl) e outro imagelist(ImageListCtrl), atraves de codigo VB carreguei os itens (3 niveis) no objeto treeview e vinculei, na sua propriedade Imagelist o objeto imaglist já com três imagens 24x24. Porém quando executo o formulário ao invez de aparece as imagens, nos tópicos do treeview, aparece somente um espaço em branco. Alguém pode me ajudar?

[João.Neto]

Web, poste o seu código para nós darmos uma analisada, ok?

Mas, antes, dê uma olhada no código abaixo que utilizo para o TreeView onde eu atribuo o ImageList no próprio código e utilizo a propriedade Key, do ImageList, para atribuir a imagem.

Private Sub UserForm_Initialize()

    Dim nodX As Node
    Set TreeView1.ImageList = ImageList1
    Set nodX = TreeView1.Nodes.Add(, , "Root", "Nó Raiz", "fechado")
    
    nodX.ExpandedImage = "aberto"
    nodX.Expanded = True
    
    Set nodX = TreeView1.Nodes.Add("Root", tvwChild, "Child1", "Nó Filho 1", "fechado")
    nodX.ExpandedImage = "aberto"
    nodX.Expanded = True

    Set nodX = TreeView1.Nodes.Add("Root", tvwChild, "Child2", "Nó Filho 2", "Arquivo")
    Set nodX = TreeView1.Nodes.Add("Root", tvwChild, "Child3", "Nó Filho 3", "Arquivo")

    Set nodX = TreeView1.Nodes.Add("Child1", tvwChild, "Child1A", "Nó Filho 1-A", "Arquivo")
    Set nodX = TreeView1.Nodes.Add("Child1", tvwChild, "Child1B", "Nó Filho 1-B", "Arquivo")

'Os nomes "fechado", "aberto" e "Arquivo" são os nomes que atribui na propriedade Key da respectiva imagem no controle ImageList.

End Sub