استعملت هذه الطريقة وكانت تخرج رساله خطا لا اعرف سببها
If e.KeyCode = 97 Then cmd1_Click(Nothing, Nothing)
If e.KeyCode = 98 Then cmd2_Click(Nothing, Nothing)
If e.KeyCode = 99 Then cmd3_Click(Nothing, Nothing)
If e.KeyCode = 100 Then cmd4_Click(Nothing, Nothing)
If e.KeyCode = 101 Then cmd5_Click(Nothing, Nothing)
If e.KeyCode = 102 Then cmd6_Click(Nothing, Nothing)
If e.KeyCode = 103 Then cmd7_Click(Nothing, Nothing)
If e.KeyCode = 104 Then cmd8_Click(Nothing, Nothing)
If e.KeyCode = 105 Then cmd9_Click(Nothing, Nothing)
If e.KeyCode = Keys.NumPad0 Then txtInput.Text = txtInput.Text & 0 If e.KeyCode = Keys.NumPad1 Then txtInput.Text = txtInput.Text & 1 If e.KeyCode = Keys.NumPad2 Then txtInput.Text = txtInput.Text & 2 If e.KeyCode = Keys.NumPad3 Then txtInput.Text = txtInput.Text & 3 If e.KeyCode = Keys.NumPad4 Then txtInput.Text = txtInput.Text & 4 If e.KeyCode = Keys.NumPad5 Then txtInput.Text = txtInput.Text & 5 If e.KeyCode = Keys.NumPad6 Then txtInput.Text = txtInput.Text & 6 If e.KeyCode = Keys.NumPad7 Then txtInput.Text = txtInput.Text & 7 If e.KeyCode = Keys.NumPad8 Then txtInput.Text = txtInput.Text & 8 If e.KeyCode = Keys.NumPad9 Then txtInput.Text = txtInput.Text & 9