A simple animation program that I wrote using Microsoft Visual Basic 6 to scroll a text in the form. I use timer control to generate the animation effects.
If you have some questions please send me an email at jakerpomperada@gmail.com and jakerpomperada@yahoo.com.
Thank you very much.
Sample Output of Our Program
Program Listing
Option Explicit
Dim strText As String
Private Sub cmdScroll_Click()
strText = String(70, " ") + " Microsoft Visual Basic 6.0 "
Timer1.Enabled = True
End Sub
Private Sub cmdQuit_Click()
Unload Me
End Sub
Private Sub Timer1_Timer()
strText = Mid(strText, 2) & Left(strText, 1)
txtMessage = strText
End Sub
