Portable Single Character I/O with timeout?

[Siegfried Heintze]

Consider this program:
Module Hello
Declare Function _getch Lib "msvcrt.dll" () As Integer
Dim out As System.IO.TextWriter = System.Console.Out
Sub Main(args() as String)
out.WriteLine("Hello World!")
out.Write("Press any key to continue: ")
_getch()
End Sub
End Module

(1) Can this be done without a PInvoke to make it portable?
(2) How can I make the single character read timeout after a minute?

Thanks
Siegfried

 

[Patrice]

If .NET 2.0, you could try (Console.KeyAvailable) :
http://msdn2.microsoft.com/en-us/library/system.console.keyavailable(VS.80).aspx

_getch could likely be replaced with Console.ReadKey