Showing posts with label scrolling text in vb 6. Show all posts
Showing posts with label scrolling text in vb 6. Show all posts

Saturday, October 4, 2014

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