For Sophea Kunguru (Original Post in Welcome Blog)

Create a Blank Form.

Add a textbox to it (Text0)

Now add a few events.

In the list of events for the form find On Open and click on the ... and choose Code Builder.

Add the following code:

Private Sub Form_Open(Cancel As Integer)
    Message = " Type your message here. If it is not longer than this text box, make sure you add additional spaces. "
End Sub

Next find the On Timer and repeat the process.

Private Sub Form_Timer()
    Text0 = Message
    'Get first character
    Dim FChar As String
    FChar = Left(Message, 1)
    'Remove first character
    Message = Mid$(Message, 2, Len(Message) - 1)
    'Put 1st character at the end of the message.
    Message = Message + FChar
End Sub

Above these two Subs add

Public Message As String

Finally don't forget to change the Timer Interval from 0 to 100. (Amend this to a speed you like.)

Now save the form, close it and open it and there you go.

Alex

---

Reply from Richard Rost:

Very elegant solution!