Scrolling Form title from right to left with certain interval

'First include the timer in the form.

Private Sub tmrScrollTitle_Timer()
ScrollTitle "Election Commission Nepal", 80, MDIMain
End Sub

Public Sub SetInitialCaption(Cap As String, Spaces As Integer, FormName As Form)
FormName.Caption = Space(Spaces)
FormName.Caption = FormName.Caption + Cap
End Sub


Public Sub ScrollTitle(Cap As String, Spaces As Integer, FormName As Form)
If Not FormName.Caption = "" Then
FormName.Caption = Right(FormName.Caption, (Len(FormName.Caption) - 1))
Else
Call SetInitialCaption(Cap, Spaces, FormName)
End If
End Sub

Related Posts by Categories