Programalama > VISUAL BASIC

'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