Scrolling Title/Label Caption
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
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.