ascii keyborad keypress

i use keypress to catch keyborad input and after press i use msgbox to direct show ascii this program i made Public Class Form1 Private Sub Form_Keypress(ByVal KeyAscii As Integer) Dim ascii As Integer Dim Hex, Dec_Hex As String ascii = KeyAscii Do Until...