I've been working on a program where I have an MDI form with a toolbar and an imagelist control with all the button bitmaps (and some other bitmaps) in it. At first I set up the buttons and such at design time, but after about the 5th time I wanted to add an image and had to reset the buttons again since you can't add images to the control when it's bound to something else. I decided to do the assignments in code afterwards, and thought this would work:
Code:
'this is in a module btw
Public Sub LoadToolbarIcons()

   Dim Button As ComctlLib.Button

   Set mdiText.tbrTools.ImageList = mdiText.imlToolbarIcons

   For Each Button In mdiText.tbrTools.Buttons
      If Button.Key <> "" Then mdiText.tbrTools.Buttons(Button.Key).Image = mdiText.imlToolbarIcons.ListImages(Button.Key).Picture
   Next Button

End Sub
When this runs, I'll get an error about invalid keys (each of my buttons has a key, and has a matching key in the imagelist control for the proper bitmap). I can't tell why it's doing that though . If I manually use code to set things from the imagelist, it works fine. Some of my buttons have the separator style, so they don't have keys, which is why I make sure they do have keys in that sub. Does anyone know what might be going on? I feel I've missed something simple.