كود جعل خلفية النص تومض

ضع الكود في الفورم

Private Sub Timer1_Timer()

Static COL

COL = COL + 10

If COL > 510 Then COL = 0

Label1.BackColor = RGB(Abs(COL - 255), 0, 0)

Label2.BackColor = RGB(0, Abs(COL - 255), 0)

Label3.BackColor = RGB(0, 0, Abs(COL - 255))

Label4.BackColor = RGB(Abs(COL - 0), 180, 180)

Label5.BackColor = RGB(Abs(COL - 200), 30, 180)

End Sub