Imagelist - add images at run time

Dim KeyText As String
KeyText = "IconName"   'use this name in code to reference the icon
ImageList1.ListImages.Add , KeyText, LoadPicture( "myicon.ico" )