One more thing-I forgot to mention

[tracey]

copy this code below and paste it into your form module,
then you need to enter a timer interval value, I used
175. Then make sure that you have an event procedure on
the "on timer event". Create a field on your form
named "txtScroll". Or modify the code and use a public
declaration


Public Sub ScrollText()

Dim intLen As Integer
Dim strVal As String


strVal = "This text will scroll"
intLen = Len(strVal)

strVal = Right(strVal, Len(strVal) - 1) & Left(strVal, 1)
'Debug.Print strVal


Me.txtScroll = strVal 'this stores the text

Me.Caption = strVal

End Sub

Private Sub Form_Timer()
ScrollText
End Sub



't r a c e y @ c o x (dot) n e t