Imports System.Text
Module ConsoleKeyExample
Public Sub Main()
Dim input As ConsoleKeyInfo
Do
Console.WriteLine("Press a key, together with Alt, Ctrl, or Shift.")
Console.WriteLine("Press Esc to exit.")
input = Console.ReadKey(True)
Console.WriteLine(input.Key.ToString())
If (input.Modifiers And ConsoleModifiers.Alt) = ConsoleModifiers.Alt Then
Console.WriteLine(", together with " + ConsoleModifiers.Alt.ToString())
End If
If (input.Modifiers And ConsoleModifiers.Control) = ConsoleModifiers.Control Then
Console.WriteLine(ConsoleModifiers.Control.ToString)
End If
If (input.Modifiers And ConsoleModifiers.Shift) = ConsoleModifiers.Shift Then
Console.WriteLine(ConsoleModifiers.Shift.ToString)
End If
Loop While input.Key <> ConsoleKey.Escape
End Sub
End Module