Attention: how to open or close the CD-ROM

If you want to open or close the CD-ROM Through VB, you can send a related command request to Windows multimedia DLL, but you must declare the DLL first:

Add the following to the module file:Code:

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

The following is the process code to open the CD-ROM:

Retvalue = mcisendstring ("set cdaudio door open ",_

Returnstring, 127, 0)

Close CD-ROM with the following code:

Retvalue = mcisendstring ("set cdaudio door closed", _ returnstring, 127, 0)