I placed "Timer1" onto "frmAbout" and then put the following code in the "Form_Load" event. I was trying to get a pseudo-scrolling effect by placing "Str" into the title bar one character at a time. It doesn't work. Someone please tell me why.

Private Str As String

Private Sub Form_Load()
.Caption = ""
Timer1.Interval = 200
Str = "Program Name and/or comment !"
End Sub

Private Sub Timer1_Timer()
Static x As Integer
If x < Len(Str) Then
x = x + 1
.Caption = .Caption & Mid(Str, x, 1)
Else
x = 0
.Caption = ""
End If
End Sub

Thanks!!

Jaxon