01.
Private
Sub
Form1_KeyPress(
ByVal
sender
As
Object
,
ByVal
e
As
System.Windows.Forms.KeyPressEventArgs)
Handles
Me
.KeyPress
02.
Select
Case
Asc(e.KeyChar)
03.
Case
48
04.
My.Computer.Audio.Play(My.Resources.Resource1._0
05.
Case
48 + 1
06.
My.Computer.Audio.Play(My.Resources.Resource1._1, AudioPlayMode.WaitToComplete)
07.
Case
48 + 2
08.
My.Computer.Audio.Play(My.Resources.Resource1._2, AudioPlayMode.WaitToComplete)
09.
Case
48 + 3
10.
My.Computer.Audio.Play(My.Resources.Resource1._3, AudioPlayMode.WaitToComplete)
11.
Case
48 + 4
12.
My.Computer.Audio.Play(My.Resources.Resource1._4, AudioPlayMode.WaitToComplete)
13.
Case
48 + 5
14.
My.Computer.Audio.Play(My.Resources.Resource1._5, AudioPlayMode.WaitToComplete)
15.
Case
48 + 6
16.
My.Computer.Audio.Play(My.Resources.Resource1._6, AudioPlayMode.WaitToComplete)
17.
Case
48 + 7
18.
My.Computer.Audio.Play(My.Resources.Resource1._7, AudioPlayMode.WaitToComplete)
19.
Case
48 + 8
20.
My.Computer.Audio.Play(My.Resources.Resource1._8, AudioPlayMode.WaitToComplete)
21.
Case
48 + 9
22.
My.Computer.Audio.Play(My.Resources.Resource1._9, AudioPlayMode.WaitToComplete)
23.
End
Select
24.
End
Sub