افکت تایپ

'///|SfoAfzar.Net

Dim rando
Dim b As Integer
Dim i As Integer
Dim hold As String
Dim Message As String

Private Sub Command1_Click()
    '//////// reset data
    Text1.Text = ""
    i = 0
    hold = ""
    b = 1
    '////////
    Message = Text2.Text
        Text1.MaxLength = Len(Message)
        Command1.Enabled = False
        Timer1.Enabled = True
End Sub

Private Sub Form_Load()
    b = 1
End Sub

Private Sub Timer1_Timer()
    On Error Resume Next
    If Text1.Text = Message Then Timer1.Enabled = False: Command1.Enabled = True
    i = i + 1
    Text1.Text = hold & Chr(i)
    If hold & Chr(i) = Left(Message, b) Then hold = hold + Chr(i): i = 0: b = b + 1
End Sub