اكتب هذا الكود في حدث ال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)