Toolbar com imagens

[Digowarta]

Prezados

estou tentando criar uma toolbar dinamica, ou seja, eu tenho uma tabela no banco onde eu armazeno além de outras informações a imagem que vai no botão da toolbar

para adicionar os botoes e inserir a imagem eu faço isso:

Private Sub MontaToolBar()
Dim rsConsulta As New ADODB.Recordset
Dim strSql As String
Dim intI As Integer
Dim strImagem As String

strSql = "SELECT * FROM toolbar"
Call Conectar(strSql, rsConsulta)

If rsConsulta.RecordCount > 0 Then
For intI = 1 To rsConsulta.RecordCount
strImagem = IIf(IsNull(rsConsulta!imagem), "", rsConsulta!imagem)
Toolbar.Buttons.Add intI, , , , strImagem
rsConsulta.MoveNext
Next
End If
End Sub

mas me retorna o seguinte erro:

runtime error "35613"

imagelist must be initialized before it can be used

afinal, como eu faço para adicionar as imagens na minha toolbar via codigo?

obrigado

Editado Fevereiro 8, 2008 por kuroi
Adicionar Tag CODE

[kuroi]

acho q o esquema é você adicionar um ImageList no formulario, e adicionar as imagens no ImageList e não na ToolBar. ai você associa a ToolBar com o ImageList.

[Digowarta]

como eu faço para associar a toolbar com a imagelist?

[kuroi]

Set Toolbar1.ImageList = ImageList1

ai pra setar os botoes com as imagens, faca tipo assim:

Toolbar1.Buttons(1).Image = 1

trocandos os 1s pelos indices das imagens e dos botoes de acordo com q você quer.