[COLOR=#0000ff]Private[/COLOR] [COLOR=#0000ff]Sub[/COLOR] ListBoxErrorsDrawItem([COLOR=#0000ff]ByVal[/COLOR] sender [COLOR=#0000ff]As[/COLOR] System.Object, _
[COLOR=#0000ff]ByVal[/COLOR] e [COLOR=#0000ff]As[/COLOR] System.Windows.Forms.DrawItemEventArgs) [COLOR=#0000ff]Handles[/COLOR] ListBoxErrors.DrawItem
[COLOR=#0000ff] Dim[/COLOR] lb [COLOR=#0000ff]As[/COLOR] System.Windows.Forms.ListBox = [COLOR=#0000ff]DirectCast[/COLOR](sender, ListBox)
[COLOR=#0000ff]Dim[/COLOR] item [COLOR=#0000ff]As[/COLOR] MyError = [COLOR=#0000ff]DirectCast[/COLOR](lb.Items(e.Index), MyError)
e.DrawBackground()
[COLOR=#0000ff]If[/COLOR] (e.State [COLOR=#0000ff]And[/COLOR] DrawItemState.Selected) = 0 [COLOR=#0000ff]Then[/COLOR]
[COLOR=#0000ff]If[/COLOR] e.Index [COLOR=#0000ff]Mod[/COLOR] 2 = 0 [COLOR=#0000ff]Then[/COLOR]
e.Graphics.FillRectangle(Brushes.Beige, e.Bounds)
[COLOR=#0000ff]Else[/COLOR]
e.Graphics.FillRectangle(Brushes.BlanchedAlmond, e.Bounds)
[COLOR=#0000ff]End[/COLOR] [COLOR=#0000ff]If[/COLOR]
[COLOR=#0000ff]End[/COLOR] [COLOR=#0000ff]If[/COLOR]
e.Graphics.DrawRectangle(Pens.Silver, e.Bounds)
TextRenderer.DrawText(e.Graphics, item.Text, lb.Font, e.Bounds, e.ForeColor, TextFormatFlags.Default)
[COLOR=#0000ff]If[/COLOR] (e.State [COLOR=#0000ff]And[/COLOR] DrawItemState.Selected) <> 0 [COLOR=#0000ff]Then[/COLOR] e.DrawFocusRectangle()
[COLOR=#0000ff]End[/COLOR] [COLOR=#0000ff]Sub[/COLOR]
[COLOR=#0000ff]Private[/COLOR] [COLOR=#0000ff]Sub[/COLOR] ListBoxErrorsMeasureItem([COLOR=#0000ff]ByVal[/COLOR] sender [COLOR=#0000ff]As[/COLOR] System.Object, [COLOR=#0000ff]_
ByVal[/COLOR] e [COLOR=#0000ff]As[/COLOR] System.Windows.Forms.MeasureItemEventArgs) [COLOR=#0000ff]Handles[/COLOR] ListBoxErrors.MeasureItem
[COLOR=#0000ff]Dim[/COLOR] lb [COLOR=#0000ff]As[/COLOR] System.Windows.Forms.ListBox = [COLOR=#0000ff]DirectCast[/COLOR](sender, ListBox)
[COLOR=#0000ff]Dim[/COLOR] item [COLOR=#0000ff]As[/COLOR] MyError = [COLOR=#0000ff]DirectCast[/COLOR](lb.Items(e.Index), MyError)
[COLOR=#0000ff]Dim[/COLOR] size [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]New[/COLOR] Size(lb.ClientRectangle.Width, lb.ItemHeight)
size = TextRenderer.MeasureText(item.Text, lb.Font, size)
e.ItemHeight = size.Height
[COLOR=#0000ff]End[/COLOR] [COLOR=#0000ff]Sub[/COLOR]