Animasi Teks dengan VB

==> Animasi Teks

Private intCount As Integer

Private Const TEKS As String =_

“By @Illank Dunia Script”

Private Sub Form_Load()

‘Inisialisasi Counter

IntCount = 0

Me.tmr.Enabled = True

End Sub

Private Sub tmr_Timer()

‘Reset counter jika lebih dari panjang teks

If IntCount > Len(TEKS) then IntCount = -1

‘Increment Counter

IntCount = IntCount + 1

‘Tampilkan Teks Satu Persatu (Karakter)

‘dimulai dari karakter paling depan

Me.Caption = Mid$(TEKS, 1, IntCount)

End Sub