Visual Basic 6.0 Formun başlığını harf harf yazdırmak

Sub HarfHarf(ref As Form)
         baslik = ref.Caption                        ' Form başlığı alınıyor
         ref.Caption = ""                              ' Form başlığı siliniyor
         ref.Show
         For i = 0 To Len(baslik)                   ' Başlık uzunluğu kadar tekrarlanıyor
                  If i = 0 Then
                           ref.Caption = ""
                           current = Timer
                           Do While Timer - current < 0.1
                                      DoEvents
                           Loop
                           GoTo Son
                           Else
                  End If
                  ref.Caption = Left(baslik, i)     ' Başlığın soldan i kadarı seçiliyor
                  current = Timer
                  Do While Timer - current < 0.05
                           DoEvents                     ' Diğer programların çalışabilmesine
                  Loop                                     ' olanak tanıyor
         Son:
         Next i
End Sub
 
Private Sub Command1_Click()
         HarfHarf Me
End Sub