CanCanCaption

Private Sub Timer1_Timer()
Static bStep As Boolean
Dim bTmp As Boolean
Dim sTmp As String
Dim sStr As String
bTmp = False
sStr = ""
For x = 1 To Len(Caption)
sTmp = Mid(Caption, x, 1)
If bStep = True Then
If bTmp = True Then
sTmp = UCase(sTmp)
Else
sTmp = LCase(sTmp)
End If
Else
If bTmp = True Then
sTmp = LCase(sTmp)
Else
sTmp = UCase(sTmp)
End If
End If
sStr = sStr & sTmp
bTmp = Not (bTmp)
Next x
bStep = Not (bStep)
Caption = sStr
End Sub