Module Module1
    Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Int32) As _
      Boolean
    Sub Main()
        Dim z As Int32
        Do
            Console.Write(z & ",")
            Threading.Thread.Sleep(500)
            z += 1
        Loop While CInt(GetAsyncKeyState(ConsoleKey.Escape)) = 0
    End Sub
End Module