formumuza 1 timer - 1 label ekliyoruz ve kodları forma yapıştırıyoruz.
Kod:
Private Sub Form_Load()
Label1.Caption = "Accesstr.net | Access Öğrenmenin Kısa yolu"
Label1.Left = ScaleLeft
Label1.Width = Me.ScaleWidth
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
Label1 = Mid(Label1, 2, Len(Label1) - 1) + Left(Label1, 1)
End Sub