| |
Расположите на форме элемент CommandButton, элемент TextBox, элемент Timer.
Dim strText As String
Private Sub Command1_Click()
strText = String(30, " ") + "Спасибо, что вы посетили
сайт VBnet.RU. Надеюсь, вы нашли много полезного для
себя."
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
|
|