VB.NET, C#, PowerShell Tipsサイト

Sub Main()
    Dim bRead As Boolean = True

    While bRead
        'キー入力を取得
        Dim c As ConsoleKeyInfo = Console.ReadKey(True)

        If c.Key = ConsoleKey.Escape Then
            Console.Beep()
        ElseIf c.Key = ConsoleKey.Q Then
            bRead = False
        End If
        Console.WriteLine(c.Key.ToString & " が入力されました。")
    End While
End Sub