Label Color Effect

[DusT3r]

1. un timer

2. Cate labele vreti si le treceti in Codu la timer

Timer Code:

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)

--------------------------------------------------------------------------------