[Sajad]

السلام عليكم

اكتب هذا الكود في حدث الSelectedIndexChanged للListBox واضف مجال الاسماء Import.Drawing.Drawing2D

PHP كود :

Dim rc As Rectangle = listBox1.GetItemRectangle(listBox1.SelectedIndex)
            Dim brush As New LinearGradientBrush(rc, Color.Transparent, Color.Red, LinearGradientMode.ForwardDiagonal)
            Dim g As Graphics = Graphics.FromHwnd(listBox1.Handle)
            g.FillRectangle(brush, rc) 


وعند التنفيذ انقر على أي Item

الكود منقول كان بالC# وحولته الى VB

بالتوفيق ان شاءالله