اخوانى الاحباب ارجو التعديل على الكود

[mhareek]

اخوانى الاحباب هذا الكود لجعل الكلمات تتحرك بشكل دائرى

ما اريدة هو ان تبدا الكلمات التحرك من بداية الصفحة من اليمين لتستقر فى المنتصف وتقف

الى لا تلف

ارجو التعديل على الكود

مع جزيل الشكر

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

تم تعديل يوليو 20, 2008 بواسطه mhareek

[mhareek]

up