عدة نصوص فلاشية متحركة على اليوزرفورم

[صالح ربيع]

السلام عليكم 

عندي نص فلاشي متحرك على اليوزرفورم

كيف نجعل بقية النصوص الموجودة في اليوزرفورم  فلاشية متحركة نفس النص الأول

عدة نصوص فلاشية متحركة على اليوزر فروم.xls

[Ali994m]

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

كل ماعليك تعديل الكود بإضافة اسم النص المطلوب تحويله لنص فلاشي

وتغيير رقم اللون حسب الرغبة

Private Sub UserForm_Activate()
For i = 1 To 10000
DoEvents
L1.ForeColor = QBColor(Rnd * 15)
Label2.ForeColor = QBColor(Rnd * 15)
Label3.ForeColor = QBColor(Rnd * 8)
Label1.ForeColor = QBColor(Rnd * 9)
CommandButton1.ForeColor = QBColor(Rnd * 7)
Call Sleep(200)
Next i
End Sub

Test.xlsكما يجب أن يحتوي الملف على Module يحتوي الكود التالي 

Declare Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long)

أرجو الله تعالى أن أكون وفقت في الاجابة على سؤالك

[صالح ربيع]

جزاكم الله كل الخير

تم الامر بشكل ممتاز 

سلمت يداك