كود تغيير لون نص بشكل مستمر

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

Private Sub Timer1_Timer()

Static Col1, Col2, Col3 As Integer

Static c1, C2, C3 As Integer

If (Col1 = 0 Or Col1 = 250) And (Col2 = 0 Or Col2 = 250) And (Col3 = 0 Or Col3 = 250) Then

c1 = Int(Rnd * 3)

C2 = Int(Rnd * 3)

C3 = Int(Rnd * 3)

End If

If c1 = 1 And Col1 <> 0 Then Col1 = Col1 - 10

If C2 = 1 And Col2 <> 0 Then Col2 = Col2 - 10

If C3 = 1 And Col3 <> 0 Then Col3 = Col3 - 10

If c1 = 2 And Col1 <> 250 Then Col1 = Col1 + 10

If C2 = 2 And Col2 <> 250 Then Col2 = Col2 + 10

If C3 = 2 And Col3 <> 250 Then Col3 = Col3 + 10

Label1.ForeColor = RGB(Col1, Col2, Col3)

End Sub

Private Sub Form_Load()

Timer1.Interval = 100

End Sub