Scroll text from right to left using timer

Satyapriyanayak
Posted by Satyapriyanayak under VB.NET category on | Points: 40 | Views : 968
Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Mid(Label1.Text, 2, Len(Label1.Text)) & Mid(Label1.Text, 1, 1)
Label1.ForeColor = Color.White
Label1.BackColor = Color.Red

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Label1.Text = "...Scroll text from right to left..."
End Sub
End Class

Comments or Responses

Login to post response