Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        Select Case e.KeyChar
            Case "k", "K"
                MessageBox.Show("k was pressed")
            Case "x", "X"
                Me.Close()
        End Select
    End Sub

Module Module1
    Private theKey As ConsoleKeyInfo = New ConsoleKeyInfo
 
    Sub Main()
        Do
            theKey = Console.ReadKey(True)
            Select Case theKey.Key
                Case ConsoleKey.X
                    Exit Do
                Case ConsoleKey.N
                    PrintScreen()
            End Select
        Loop
    End Sub
 
    Private Sub PrintScreen()
        Console.Write("000,000.00", 1234.5F)
        Console.WriteLine()
    End Sub
 
End Module

Private theKey As ConsoleKeyInfo = New ConsoleKeyInfo
.....
.....
.....
            theKey = Console.ReadKey(True)

Private theKey As ConsoleKeyInfo = New ConsoleKeyInfo