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("buraya istediğinizi yazın ", 1)
End Sub
Umarım Beğenirsiniz
__________________