'ilk once bir Modul ekleyin ve aşağıdaki kodu yazın
================================================== =====
Dim Cl As Integer
Dim at As Integer
Public Function AniText(str As String, eff As Integer) As String
Dim lop
Cl = Len(str) + 1
at = at + 1
If at >= Cl Then
at = 1
End If
Select Case eff
Case 0
AniText = Mid(str, at) + Left(str, at)
Case 1
AniText = Mid(str, (Cl - at)) + Left(str, (Cl - at))
Case 2
AniText = Mid(str, (Cl - at)) + Left(str, (Cl - at)) + Mid(str, at) + Left(str, at)
Case 3
AniText = Mid(str, at) + Left(str, at) + Mid(str, (Cl - at)) + Left(str, (Cl - at))
End Select
End Function

================================================== =====
'Daha sonra bir forma Timer yapıp bu timera aşağıdaki kodu pasteleyin.
================================================== =====
Private Sub Timer1_Timer()
Form1.Caption = AniText("İSTEDİGİNİZ YAZİ ", 1)'Buradaki 1 sayisi uzunlugu belirler bunu en fazla 3 yapabilirsiz..
End Sub
__________________