Date and time continuous Learn programming Visual Basic (VB.net)

Imports System
Imports System.Threading
Class DateAndTimeContinuos
    Private Shared Sub Main()
        While True
            Dim time As String = DateTime.Now.ToLongTimeString()
            Console.SetCursorPosition(72, 1)
            Console.Write(time)
            Thread.Sleep(1000)
        End While
    End Sub
End Class