如果你想通过vb打开或者关闭cd-rom，你可以向windows multimedia dll发出一条相关的命令请求，但是你必须先声明dll：
在模块文件中加入以下代码：
declare function mcisendstring lib "winmm.dll" alias _"mcisendstringa" (byval lpstrcommand as string, byval _lpstrreturnstring as string, byval ureturnlength as long, _
byval hwndcallback as long) as long
以下是打开cd-rom的过程代码：
retvalue = mcisendstring("set cdaudio door open", _
returnstring, 127, 0)
关闭cd-rom用以下代码：
retvalue = mcisendstring("set cdaudio door closed", _returnstring, 127, 0)
