Attribute VB_Name = "Module1"
Option Explicit

Sub CoolWindowTitle(ByVal Window As Object, ByVal Caption As String)
Dim Counter As Long
Dim Spaces As Long
Dim PostString As String
Dim NestedCount As Long

For Spaces = 20 To 0 Step -1
    PostString = ""
    For NestedCount = 1 To Len(Caption)
        PostString = PostString & String(Spaces, " ")
        PostString = PostString & CharNumber(Caption, NestedCount)
    Next NestedCount
    
    For Counter = 1 To 100000
    Next Counter
    DoEvents
    Window.Caption = PostString
Next Spaces

End Sub


Function CharNumber(ByVal Str As String, ByVal CharNum As Long)
Dim tStr As String
Dim tStr2 As String

tStr = Left(Str, CharNum)
tStr2 = Right(tStr, 1)

CharNumber = tStr2
End Function