اخوانى الاحباب هذا الكود لجعل الكلمات تتحرك بشكل دائرى
ما اريدة هو ان تبدا الكلمات التحرك من بداية الصفحة من اليمين لتستقر فى المنتصف وتقف
الى لا تلف
ارجو التعديل على الكود
مع جزيل الشكر
Sub auto_open()
t = " السلام عليكم ورحمة الله وبركاتة "
n = 0
Do While n < 5000000
t = Right(t, 1) & Left(t, Len(t) - 1)
[h3] = t
w = 0.2
temp = Timer
Do While Timer < temp + w
DoEvents
Loop
n = n + 1
Loop
End Sub