listbox ve color

[bunalthe]

bi döngü deişkenim var ve bu döngü deişkeni her arttığında listbox un itemslerinin renkleri farklı farklı olucak...yani deişkene i diyelim...

i= 1 ise 1.item kırmızı
i=2 ise 2.item yeşil....gibi nasıl yapabilirim?=?=

[bunalthe]

ok buldum drawe item özelligi varmıss,,,

PrivateSub ListBox1_DrawItem(ByVal sender AsObject, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
Dim clsForeColor As System.Drawing.Color = e.ForeColor
If e.Index = 1 Then clsForeColor = Color.Red
If e.Index = 0 Then clsForeColor = Color.Yellow
If e.Index = 2 Then clsForeColor = Color.Blue
If e.Index = 3 Then clsForeColor = Color.Cyan
If e.Index = 4 Then clsForeColor = Color.DarkOrange
If e.Index = 5 Then clsForeColor = Color.DarkViolet
If e.Index = 6 Then clsForeColor = Color.DarkGreen
e.DrawBackground()
Dim clsBrush AsNew System.Drawing.SolidBrush(clsForeColor)
e.Graphics.DrawString(Me.ListBox1.Items.Item(e.Index).ToString, e.Font, clsBrush, e.Bounds.X, e.Bounds.Y)
clsBrush.Dispose()
EndSub
ProtectedOverridesSub OnLoad(ByVal e As System.EventArgs)
MyBase.OnLoad(e)
Me.ListBox1.DrawMode = DrawMode.OwnerDrawFixed
EndSub

[Adem15]

Sağolasın denerim