Visual Basic - Cargar imagenes en un imagecombo

salu2 despues de probar codigos y otros codigos no he podido cargar una imagen en un imagecombo este es el codigo que tengo

form1_load( )

dim imagen as listimage

' para cargar la imagen el el imagelist

Set imagen= ImageList1.ListImages. _
Add(, "nuevo", LoadPicture("C:\mis programas\Nueva _ carpeta\iconos\icono3.ico"))

with imagecombo1
.listimage = imagelist1 ' para inicializar el imagelist primero
.comboitems.add(1) = "C:\mis programas\Nueva _ carpeta\iconos\icono3.ico"

end with

me da un error de que no se encuentra el objeto
¿ el imagecombo admite iconos ?

salu2 nuevamente y gracias

Prueba a ver si esto te funciona:

Dim imagen As ListImage
Dim Rutadeimagen As String, Descripcion As String
Set imagen = ImageList1.ListImages.Add(1, , LoadPicture(Rutadeimagen))

With ImageCombo1
.ImageList = ImageList1
.ComboItems.Add(1) = Descripcion

'Establece que imagen (el índice) del imagelist le corresponde a Descripcion
.ComboItems.Item(1).Image = 1
End With

Un saludo.