'ilk önce bir modül 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("mail adresiniz ", 1) End Sub