[اسامه الهرماوي]

تفضل:

كود :

Public Class Form1
   Dim originalText As String
   Dim spaceCounter As Integer = 1
   Dim reverseMoving As Boolean

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       originalText = Me.Text
       Timer1.Interval = 50
       Timer1.Enabled = True
   End Sub

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       Me.Text = StrDup(spaceCounter, " ") & originalText
       If Not reverseMoving Then
           spaceCounter += 1
           If spaceCounter = 35 Then
               reverseMoving = True
           End If
       Else
           spaceCounter -= 1
           If spaceCounter = 0 Then
               reverseMoving = False
           End If
       End If
   End Sub
End Class