Comments by Member 10190163 (Top 14 by date)

Alright thanks,
I have uped the array to 0 to 550, since that is the maximum value
and I have fixed it now with
For counter = 0 To 549
arrColors(counter) = arrColors(counter + 1)
Next
just before the: Me.ListBox1.Items.Remove(listbox_text(0))
line
I haven't used a collection though.

Your right its not to do with timing, the problem is that later on in my code I limit the number of listbox entries with this line: Me.ListBox1.Items.Remove(listbox_text(0)) ' take off the top list box entry
and that will mean the ListBox1_DrawItem sub will be called but a new item is not being added to it, so I think that's why it messes up.

That's quite an obvious solution when you look at the error message, I should have been able to do that. Thanks for the code, you have been a grate help. I have tested this now on my system and it works well. I am having a problem implementing it into my other code that I was working with as the blue and black messages seem out of sync, this is probably an issue with timing. But as that is a separate issue it will probably be best if I open that as a new question, so thanks for your help you have solved my issue. Well my first issue anyway.

I am using Windows 7 and Microsoft Visual Basic 2010 Express. I have created a new project and tried to apply your code to this. I have a problem with the line:
e.Graphics.DrawString(ListBox1.Items(e.Index).ToString(), e.Font, arrColors(e.Index), e.Bounds, StringFormat.GenericDefault)
It causes an exception when press run and I can not continue with the program because it brings up a dialog box that lets me brake or continue and when I continue the debugger stops. The dialog box messages is as follows: An unhandled exception of type 'System.ArgumentOutOfRangeException' occurred in System.Windows.Forms.dll
Additional information: InvalidArgument=Value of '-1' is not valid for 'index'.

Also if you are going to test it, you need to remember to change the draw mode property on the listbox.

I have also tied it with this line: e.Graphics.DrawString(ListBox1.Items.Item(list_num).ToString(), e.Font, myBrush, e.Bounds, StringFormat.GenericDefault)
just in-case this fixes the problem of it being added only to the first item and cleared, but again I had the same problem.

Thanks for the suggestion, but unfortunately it did not work.
I got an exception every time something was added: A first chance exception of type 'System.InvalidOperationException' occurred in System.Windows.Forms.dll
Also I saw some black and blue items being added, but the problem was it only added them to the first item then they were cleared.

Because I was under the impression that the refresh would force the listbox to be re-drawn, meaning the ListBox1_DrawItem sub would be called. Is this not the case?