Dim strText As String
Private Sub Command1_Click()
strText = String(30, " ") + "Visual Basic"
Timer1.Interval = 100
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Command1.Caption = "Начать скролинг"
With Text1
.Font = "Courier New Cyr"
.FontSize = 12
.Width = 3400
End With
End Sub

Private Sub Timer1_Timer()
strText = Mid(strText, 2) & Left(strText, 1)
Text1 = strText
End Sub