kayan form başlığı

'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

Paylaşım için sağol kanka

bişey değil