Visual Basic : Kayan Yazı

Gerekenler;
1 adet label ve 1 adet timer

Kod:

form load kısmı;

Private Sub Form_Load()
Timer1.Interval = 100
Label1.Caption = "Buraya istediğiniz Yazıyı Yazın.    "


End Sub

timer codu;

Private Sub Timer1_Timer()
Label1.Caption = Mid(Label1.Caption, 2) + Left(Label1.Caption, 1)
End Sub