Animasi Loading

Nah yang satu ini merupakan animasi Loading dimana yang beranimasi adalah kat loding itu sendiri, mau programnya Tik aja, atau kode lengkapnya klik Tik kemudian silahkan ganti namanya menjadi module1.vb atau Tik
Module Module1
Sub Main()
Dim x, posisi, I
x = 28
Console.CursorLeft = x
Console.CursorTop = 15
Dim TEKS = "L O A D I N G..."
posisi = 1
Console.ForegroundColor = ConsoleColor.Yellow
Console.Write(TEKS)
Do
Console.CursorTop = 15
Console.CursorLeft = x
For I = 1 To Len(TEKS)
If posisi = I Then
Console.ForegroundColor = ConsoleColor.Cyan
Else
Console.ForegroundColor = ConsoleColor.Yellow
End If
Console.Write(Mid(TEKS, I, 1))
Next
If posisi < Len(TEKS) Then
posisi = posisi + 1
Else
posisi = 1
End If
System.Threading.Thread.Sleep(200)
Loop Until (Console.KeyAvailable)
Console.ReadKey()
End Sub
End Module