كود شريط متحرك

السلام عليكم

وجدت هذا الكود المختصر لعمل شريط متحرك فى نموذج

بناء على سجلات حقل بجدول

الكود يعمل جيدا

لكنى لا أفهم آلية عمله

ليس كله طبعا

لكن هذا الجزء الأخير منه فى حدث timer

Private Sub Form_Timer()
date = Now
time = Now
Refresh

txt = Mid(txt, 3) & Left(txt, 2)
Me.Sbt.Caption = txt
End Sub

و بالأخص هذا السطر

txt = Mid(txt, 3) & Left(txt, 2)

أظنه الجزء الأهم فى عمل الشريط

مرفق الملف للاطلاع

و أيضا للإستفادة

و للإفادة

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

وجزى مصممه خيرا

هذا Kemas.rar