این سورس یکی از فوت و فن های وی بی 6 است که خودم نوشتمش. فقط یک لیبل و یک تایمر به فرمتان اضافه کنید.

Dim Txt As String

Private Sub Form_Load()
Txt = "Hello thank you for visiting my weblog.pawer_1 is the best weblog how help you to learn vb6 for more learning codes just visit my weblog. http://old.tebyan.net/Weblog/pawer_1/index.aspx"
Timer1.Interval = 1
With Label1
.Left = 120
.Top = 120
.Font.Size = 10
.Width = 5535
.Height = 1695
.Font.Name = "Tahoma"
.ForeColor = vbGreen
.BackColor = vbBlack
End With
With Me
.Width = 5895
.Height = 2475
.BackColor = vbBlack
End With
End Sub

Private Sub Timer1_Timer()
Static num, num1 As Integer
Dim lin, Text As String
num = num + 1
num1 = num1 + 1
If num1 = 20 Then
lin = "_"
num1 = 0
ElseIf num = 10 Then
lin = ""
End If
Text = Left(Txt, num)
Label1 = Text & lin
End Sub