Cara membuat animasi text seperti diketik di visual basic 6.0

Berikut adalah tutorial membuat label atau text dalam vb 6 menjadi seolah diketik

      Pertama buka visual basic 6.0
      Pilih standar.exe

      Masukan 3 buah komponen berikut

      Label

    Timer dgn property è enabled = false, interval = 300

    Command buton dgn property è caption = mainkan

     Masukkan listing berikut

Private Sub Command1_Click()

If Command1.Caption = "mainkan" Then

    Timer1.Enabled = True

    Command1.Caption = "Stop"

Else

    Timer1.Enabled = False

    Command1.Caption = "mainkan"

End If

End Sub

Private Sub Form_Load()

Label1.Caption = "S"

End Sub

Private Sub Timer1_Timer()

Select Case Label1

    Case "S"

    Label1.Caption = "UP"

    Case "UP"

    Label1.Caption = "RI"

    Case "RI"

    Label1.Caption = "AN"

    Case "AN"

    Label1.Caption = "TO"

    Case "TO"

    Label1.Caption = "SUPRIANT"

    Case "SUPRIANT"

    Label1.Caption = "SUPRIANTO"

    Case "SUPRIANTO"

    Label1.Caption = "S"

   

End Select

End Sub