Help! Pseudo-Scrolling Text Doesn't Work

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

Never mind. The little bell in my head finally rang.

The problem with the above code is that the periods need to be removed before each instance of the word "Caption" and it works great!

Thanks anyway!

jaxon