请问VB能否自编音乐

VB中没有PLAY语句
实现VB中编音乐可以通过windows API函数实现
主要API有
midiOutGetNumDevs '得到midi设备个数
midiOutGetDevCaps '得到指定设备信息
midiOutOpen '打开迷笛以便放音
midiOutClose '关闭打开的迷笛
midiOutShortMsg '向打开的迷笛发送消息
至于如何利用它实现,我整理一下再补充
----------------------------------------
一般电脑都有默认的迷笛,现在使用默认的,所以midiOutGetNumDevs和midiOutGetDevCaps就不用了.
编程之前先把你的迷笛弄出来:
"打开音量控制"-->"属性"-->"选项"
选中单选"播放",在下面的复选栏中把"迷笛"钩上,确定,回到音量设置界面后,把迷笛的音量调到最高.
------------------------------------
VB编程:
在窗体上添加一个文本框,两个按钮,加进以下代码:
Option Explicit
Private Declare Function midiOutClose Lib "winmm.dll" (ByVal hMidiOut As Long) As Long
Private Declare Function midiOutOpen Lib "winmm.dll" (lphMidiOut As Long, ByVal uDeviceID As Long, ByVal dwCallback As Long, ByVal dwInstance As Long, ByVal dwFlags As Long) As Long
Private Declare Function midiOutShortMsg Lib &q