Scrolling Text in Visual Basic 6.0

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

DOWNLOAD SOURCE CODE HERE