01.
Private
Sub
Form1_KeyPress(
ByVal
sender
As
Object
,
ByVal
e
As
System.Windows.Forms.KeyPressEventArgs)
Handles
Me
.KeyPress
02.
Select
Case
e.KeyChar
03.
Case
"1"
04.
TungmanAction()
05.
End
Select
06.
End
Sub
07.
08.
Private
Sub
Button1_Click(
ByVal
sender
As
Object
,
ByVal
e
As
System.Windows.Forms.EventArgs)
Handles
Button1.Click
09.
TungmanAction()
10.
End
Sub
11.
12.
Private
Sub
TungmanAction()
13.
TextBox1.Text &=
"1"
14.
End
Sub