Daktilo Efektli Yazı Örnegi

'foruma 1 label 1 timer koyun

Private Sub Timer1_Timer()
Static t As Integer
Dim m As String
t = t + 1
m = "Coded By KnocKout"
Label1.Caption = Label1.Caption & Mid(m, t, 1)
If t = Len(m) Then
t = 0
Label1.Caption = m
Timer1.Enabled = False
End If
End Sub