Buat 1 project dengan :
1 Form
1 Label
1 Timer

Copy source code berikut pada Form :

Private Sub Form_Load()
Label.Caption = " nassroom.blogspot.com "
End Sub

Private Sub Timer1_Timer()
a = Left(Label.Caption, 1)
b = Len(Label.Caption)
c = Right(Label.Caption, b - 1)
Label.Caption = c + a
End Sub

DOWNLOAD Full Source Project