static extern int kbhit();

Shared Function kbhit Lib "msvcrt.dll" () As Integer

while (!kbhit());