Label Yazi Efekti

1 adet label(index 0 olacak) 2 adet timer 1 adet text ekleyim sonra şunları kopyalayıp yapıştırın

Option Explicit

Private Sub Form_Load()
Timer1.Interval = 150
Timer2.Interval = 5000
Dim i, ds, y
Label1(0).AutoSize = True
Label1(0).FontSize = 15
Label1(0) = "M"
Label1(0).AutoSize = False
Label1(0).BackStyle = 0
ds = 15
Show
Label1(0) = ""
Label1(0).Top = 1200
Label1(0).Visible = True
For i = 1 To ds + 4
Load Label1(i) 'yeni labeller oluştur
've dairesel olarak yerleştir
y = Cos(i / 2) * Sqr(562500 - ((i) * 10) ^ 2) + 1200
Label1(i).Move Label1(i - 1).Left + Label1(i - 1).Width, y
Next
Timer1.Enabled = True

End Sub


Private Sub Text1_Change()
yaz (Text1)
End Sub

Private Sub Timer1_Timer()
Text1.text = Mid(Text1, 2, Len(Text1.text) - 1) + Left(Text1.text, 1)
End Sub

Private Sub Timer2_Timer()
Dim i, y, r
y = Form1.ScaleHeight / 2
r = Form1.BackColor
Form1.BackColor = Label1(0).ForeColor
'ters çevir
For i = 0 To 19
Label1(i).Top = 2 * y - (Label1(i).Top + Label1(i).Height)
Label1(i).ForeColor = r
Next
End Sub
Private Sub yaz(text As String)
Dim i, a, s
If Len(text) > 19 Then
s = 19
Else
s = Len(text) - 1
End If
For i = 0 To s
a = Mid(text, i + 1, 1)
Label1(i) = a
Next
End Sub