Form1 : keyPreview 屬性 True

VB2010 Keyboard 的Key 要 Enable 需將 

Form1 : keyPreview 屬性 True 

這樣才能由控制KeyBoard 彈奏 

•Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) _

•    Handles Me.KeyDown

•        Select Case e.KeyCode

•            Case Keys.D1 : Console.Beep(262, 500)

•            Case Keys.D2 : Console.Beep(294, 500)

•            Case Keys.D3 : Console.Beep(330, 500)

•            Case Keys.D4 : Console.Beep(349, 500)

•            Case Keys.D5 : Console.Beep(392, 500)

•            Case Keys.D6 : Console.Beep(440, 500)

•            Case Keys.D7 : Console.Beep(493, 500)

•            Case Keys.D8 : Console.Beep(523, 500)

•            Case Else : Exit Sub

•        End Select

•    End Sub