• Home
 · 
• Miscellaneous
 · 
• Elegant Title Scroller Simple code

Elegant Title Scroller Simple code

Elegant Title Scroller Simple code

Rate Elegant Title Scroller Simple code

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

i = 0
End Sub
Public Sub Scroll(msg As String)
Dim t, ln As Variant
Static i, s As Integer
i = i + 1
Dim mess As String
mess = msg
ln = Len(mess)
If i + ln < 160 Then
    t = Space(160 - i) & Mid(mess, 1, i)
Else
    If Len(t) = 1 Or s > ln Then
        i = 0
        s = 0
    Else
        If i < 160 Then
            t = Space(160 - i) & mess
        Else
            t = Right(mess, ln - s)
            s = s + 1
        End If
    End If
End If
Me.Caption = t
End Sub

Private Sub timer1_Timer()
Call Scroll(OraAdmin.Tag)
End Sub