من لها؟؟؟؟

أهلا

Private Sub Timer1_Timer()

Static COL

COL = COL + 10

If COL > 510 Then COL = 0

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

End Sub

الانتر فال 10

جرب هذا الكود

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

form1.BackColor = RGB(Col1, Col2, Col3)

End Sub

(f)(f)(f)

;);););)

ولا احـــــلى من كده

تحياتي لك اخي / عبد الله فتحي

اخيك / حــــــــــــــــــــــــازم

مشكور اخي عبد الله وماقصرت ..نفع الله بك الأمة ..