[الحلوانى]

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

اريد  اسم  ورقم تليفون  يمر من اول يمين الفورم الى اخر الفورم  ثم يبدا من جديد   كما فى فى شريط الاخبار

ارجوا لكم كل الخير والتقدم  وزادكم الله من فضله

[الحلوانى]

الاستاذ  امير الزبيدى

حياكم الله  وزادكم الله من فضله وعلمه

[الحلوانى]

الاستاذ امير الزبيدى

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

المثال الذى اشرت اليه يا استاذنا الفاضل  كبير وفيه اكود كثير  ولم اعرف الاستفاده منه  لقلة خبرتى عذرا

هل ممكن من فضلكم تعمل لى مثال بسيط لتحريك النص داخل الليبل

عذرا  وهذا من قله خبرتى فسامحونى

لكم كل الود والتحيه

[الحلوانى]

الاستاذ الكريم  والمبجل امير الزبيدى

شكرا لكم  واسف على تعبكم معى

وافاض عليكم الله واصبغ من النعم ظاهرة وباطنه

[الحلوانى]

الاستاذ الفاضل   امير الزيدى

الاستاذ الفاضل   احمد منصور

كل التقدير والمحبه الخالصه فى الله ولوجه الله

اسائل الله العظيم ان يجمعنا واياكم فى الجنه ويجزل لكم العطاء

[سعود]

مشاركة لاخواني اقدم اجتهادي

كود :

Dim b(5) As String
Private Sub Form_Load()
Label1.Caption = ""
b(0) = "ÓÚæÏ"
b(1) = "ãÇÖí"
b(2) = "Úáí"
b(3) = "äÇÌÍ"
b(4) = "ÚÇÑÝ"
b(5) = "íÇÓÑ"

For r = 0 To UBound(b)
Label1.Caption = Label1.Caption & b(r) & " * "
Next

End Sub

Private Sub Timer1_Timer()
If Val(Label1.Left) >= Form1.Width Then Label1.Left = 0 - Label1.Width
Label1.Left = Label1.Left + 10
Me.Caption = Label1.Left
End Sub

[الحلوانى]

الاستاذ امير الزبيدى
كريم  ومبدع
لاجد من الكلام مايوفى حقك


الاخ سعود  جزاك الله كل خير