Copy paste this entire code to your Module1.vb and debug it.
- Code:
Imports System.Threading
Module Module1
Public str As String
Public count As Integer
Sub Main()
count = 1
str = "http://www.proclubowns.forumotion.net"
Do
Console.Clear()
Console.WriteLine(str.Substring(0, count))
Thread.Sleep(100)
count = count + 1
If count = str.Length Then
Console.Clear()
Console.WriteLine(str.Substring(0, str.Length))
Exit Do
End If
Loop
Thread.Sleep(1000)
End Sub
End Module