Scrolling text on splash screen

Is it possible to do this from right to left? In other words, can you have a
single line of text in a text box scrolling horizontally from right to left?

"Allen Browne" wrote:

Use the Timer event of the form to replace the Caption of the Label.

The example below has 6 lines of text to scroll up in a label named
lblScroll that shows 4 lines at a time:

Option Compare Database
Option Explicit

'Array of the lines to be scrolled in Form_Timer.
Private astrScrollText(0 To 5) As String

Private Sub Form_Load()
'Purpose: Load the array to use in Form_Timer.
astrScrollText(0) = "first line"
astrScrollText(1) = "2nd line"
astrScrollText(2) = "3rd line"
astrScrollText(3) = "4th line"
astrScrollText(4) = "5th line"
astrScrollText(5) = "last line"
End Sub

Private Sub Form_Timer()
'Purpose: Assign the text to scroll.
Dim i As Integer 'Loop controller.
Dim strOut As String 'Output string.
Static iIndex As Integer 'Array element index.
'Number of lines high the caption is (zero-based)
Const icCaptionHeightLessOne = 3

'Create the output string from the items in the array.
For i = 0 To icCaptionHeightLessOne
strOut = strOut & astrScrollText((iIndex + i) _
Mod (UBound(astrScrollText) + 1)) & vbCrLf
Next

'Assign to the caption of the label.
Me.lblScroll.Caption = strOut

'Move the static array index to the next item.
iIndex = iIndex + 1
If iIndex UBound(astrScrollText) Then
iIndex = LBound(astrScrollText)
End If
End Sub

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Damon" wrote in message
...
I have a splash screen that has a field I want to put about 3 pages of text
into. The field should only show 3 or 4 lines of text and should scroll.
The
text will never change, therefore it should not be editable. I have tried
to
do this but can get it to work. How would you all do this?

thanks,
Damon