Scrolling Title/Label Caption

Posted: 2003-06-01
By: ArchiveBot
Viewed: 104

Filed Under:

VB6 Code Cache

No attachments for this post

Simple, 4 lines of code, timer function that will scroll the title of your form, or a label caption, or the caption of a button or whatever. scroll something. this is very simple, and i dont know if anythign else like it is posted, i dont look before i post. I just thought this was neat since i'm bored and at work...

Original Author: Dustin R Davis

Code

'Can be form.caption, text1.text, label.caption, button1.caption, whatever.
Private Sub Timer1_Timer()
Dim Length As Long
DoEvents
Length = Len(Form1.Caption) - 1
Form1.Caption = Right$(Form1.Caption, Length) & Left(Form1.Caption, 1)
End Sub

Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.