VC或VB按键调出声音

监听键盘按键，如按下 “7” 键
则按路径，播放D盘的音频文件（MP3或WMA等）或其他盘的声音也可以
怎样的程序如何编写？
举例子 谢谢
MsgBox Sy, , "" '改为调用播放音乐的程序,参数为Sy
这句怎么改？
我要播放下面声音
F:\豫剧全场视频-大保国(上)-洪先礼张钰东.rm

在键盘事件中检查按键的Ascii值，然后调用对应的音频文件播放即可。
简单的问题为什么要复杂化呢？
有两个假设：
按下数字1键定义为播放1.mp3 文件，按下数字2键定义为播放2.mp3
假设一、在同一时段内按过两数字键后两音频文件可同时分别控制（同步\异步播放、暂停…），则可以用两个线程（动态创建）操作；
假设二、在同一时段内先后按过两数字键，只播放单一音频文件并忽略其他，则直接播放最后按键所定义的音频文件即可。

晕了，我也不知道你想调用什么程序啊，所以只设计了响应按键的部分，调用的部分你要根据写啊，写好了换到“MsgBox Sy, , "" '改为调用播放音乐的程序,参数为Sy”处就行了，注意不只一处，还有，这个响应按键只是响应数字键，没有设计响应字母的，如果你要响应字母的，最好把你调用程序的部分写出来后再一起设计，最好有简单的说明。

再次修改了一下，试了试，应该可以了。
Dim Sy, a As Integer
Dim ti, tj As Single

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode > 47 And KeyCode < 58 Then
a = a + 1
ti = Timer
Select Case a
Case 1
Sy = KeyCode - 48
Do
If a <> 1 Then
Exit Sub
ElseIf ((ti + tj < 86400) And (Timer > ti + tj)) Or ((ti + tj >= 86400) And (Timer > ti + tj - 86400)) Then
MsgBox Sy, , "" '改为调用播放音乐的程序,参数为Sy
a = 0
Sy = -1