以下の日本語をVB語に訳せ


キーバッファをクリア

ループの始まり

　　10秒経ったらループを抜ける

　　10秒以内に何かキーが押されたらフォームを閉じる(me.close())

ループの終わり