أرجو المساعدة في تحريك Label كشريط أخبار باللغة العربية

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

لقد حاولت تحريك Label كشريط أخبار باللغة الإنجليزية وقد نجح ذلك من خلال كتابة الكود التالي:

If Label1.Location.X + Label1.Width < -1 Then
(Label1.Location = New Point(Me.Width,Label1.Location.Y
Else
(Label1.Location = New Point(Label.Locaion.X -1,Label1.Location.Y
End If

ولكن عندما حاولت تحريك Label كشريط أخبار باللغة العربية حدثت مشكلة وهي أن Label تتحرك مرة واحدة ثم تختفي وذلك بناء على الكود التالي:

If Label1.Location.X + Label1.Width < -1 Then
(Label1.Location = New Point(Me.Width,Label1.Location.Y
Else
(Label1.Location = New Point(Label.Locaion.X +1,Label1.Location.Y
End If

أرجو من الإخوة المتخصصين مساعدتي في هذا الأمر ولكم الأجر والثواب.