Make an infinite Do-While Loop in VB.net

Namespace ConsoleApplication
	Class Program
		Private Shared Sub Main(args As String())
			Dim i = 0
			Do
				Console.WriteLine("Infinite Loop")
				i -= 1
			Loop While i < 1
		End Sub
	End Class
End Namespace