Private Sub frmCalculator_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
Select Case e.KeyCode
Case Keys.NumPad0
MsgBox "You pressed 0 on the number pad"
End Select
End Sub