Перезагрузка картинок в ImageList - VB

Формулировка задачи:

Добрый день. Мне нужно сделать следующее: загрузить картинки в ImageList, потом в Toolbar, потом заменить картинки в ImageList на новые и снова вывести картинки. (VB6)

                    Листинг программы
                
 
                        
                          
                    
For c = 1 To КоличествоКнопок
Toolbar1.Buttons.Add
    ImageList1.ListImages.Add c, "pic" & c, LoadPicture(Path & c & ".bmp")
Next c
Toolbar1.ImageList = ImageList1
For c = 1 To КоличествоКнопок
    Toolbar1.Buttons(c).Image = c
Next c

Примерно так. Как отключить ImageList, стереть и записать другие картинки?

Решение задачи: «Перезагрузка картинок в ImageList»

textual
                            Листинг программы 
                        
       HomeDir$ = App.Path
 
       Set Me.Toolbar1.ImageList = Nothing
 
       Me.ImageList1.ListImages.Clear
       
       Me.ImageList1.ListImages.Add 1, , LoadPicture(HomeDir$ + "\run-1.ico")
       Me.ImageList1.ListImages.Add 1, , LoadPicture(HomeDir$ + "\run-0.ico")
 
       Set Me.Toolbar1.ImageList = Me.ImageList1
       
       Me.Toolbar1.Buttons(1).Image = 1
       Me.Toolbar1.Buttons(2).Image = 2