Scrolls the Caption of the form
Scrolls the Caption of the form
API Declarations
' and StopScroll to stop scrolling
' use ScrollSpeed to change speed
' It also needs a timer with name 'Timer1'
Rate Scrolls the Caption of the form
(1(1 Vote))
Dim FormCaption As String
Dim Caption2Scroll As String
Dim CaptionLength As Integer
Dim ScrollSpeed As Integer
Public Sub StartScroll()
Caption2Scroll = Space(256) & Me.Caption
CaptionLength = Len(Space(256) + FormCaption)
Timer1.Interval = ScrollSpeed
Timer1.Enabled = True
End Sub
Public Sub StopScroll()
Timer1.Enabled = False
Me.Caption = FormCaption
End Sub
Private Sub Form_Load()
ScrollSpeed = 100
Call StartScroll
End Sub
Private Sub timer1_Timer()
Me.Caption = Right(Caption2Scroll, CaptionLength)
CaptionLength = CaptionLength - 1
If CaptionLength = 0 Then
CaptionLength = Len(Space(256) + FormCaption)
End If
End Sub
Scrolls the Caption of the form Comments
No comments yet — be the first to post one!
Post a Comment