ممكن أحد يساعدني في عمل ليبل بهذا الشكل

السلام عليكم ورحمة الله وبركاته

ضع هذا الكود فى اداة تايمر

Private Sub Timer1_Timer()
Label1.Top = Label1.Top + 100
If Label1.Top > Me.Height Then Label1.Top = 0
Label1.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
End Sub

gooooooooooooooooooooooooooooooooooooooooood GHOST2010

شكراً اخى mtr

نسيت ان اوضح انه لجعل الحركة كل ثانية غير خاصية Interval للتايمر الى 1000 :rolleyes:

الأخ GHOST2010 بعد الإضافة الأخيرة انت لست gooooooooood ولكن very gooooooooooooooooooooooooooooooooooooooood

الف شكر أخي العزيز GHOST2010 على تجاوبك السريع ... واسمح لي ببعض الايضاحات

في الحقيقة أنا أريد من الليبل أن ينزل من أعلى إلى أسفل ويصل إلى منتصف الفورم فقط ثم يعود من

أسفل إلى أعلى ( ولا أريده أن يذهب إلى نهاية الفورم كما أني لا أريده أن يسير في اتجاه واحد من أعلى إلى أسفل فقط )

أيضا أريد الفورم نفسه يومض بألوان مختلفة وليست الكتابة التي بداخله .

حاولت التغيير في الكود الذي وضعته ولكنني لم أصل للمطلوب آمل المساعدة .

اتمنى ان يفيدك هذا الكود

Private Sub Timer1_Timer()
If Label1.Top >= (Me.Height - Label1.Height) / 2 Then
    Timer1.Enabled = False
    Timer2.Enabled = True
    Exit Sub
End If
Label1.Top = Label1.Top + 100
Label1.BackColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
Label1.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
End Sub

Private Sub Timer2_Timer()
If Label1.Top <= 0 Then
    Timer2.Enabled = False
    Timer1.Enabled = True
    Exit Sub
End If
Label1.Top = Label1.Top - 100
Label1.BackColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
Label1.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
End Sub

ان لم يفيدك فلا تتردد فى السؤال :rolleyes:

احسنت أخي العزيز GHOST2010 هكذا أفضل بكثير بقي خطوة واحدة وهي حركة الليبل حيث أنه الأن لا يتحرك أبدا

وضعت لك المشروع كي تعدل تغير فيه ...

وضعت في يمين الفورم خط رأسي والمطلوب أن يتحرك الليبل متجها للأسفل من أعلى الفورم إلى نهاية الخط

ثم العكس يتحرك من نهاية الخط متجها للأعلى إلى نهاية الفورم وهكذا ..

a.rar

لم يتحرك لان اداتى التايمر يعملان فى وقت واحد عليك ان تغير خاصية Enabeld لـTimer2 الى False

الف شكر لك أخي GHOST2010 على المساعدة وجزاك الله كل خير ..

تحياتي