Come aprire e chiudere un CD-ROM

Se vuoi aprire e chiudere il CD-ROM da Visual Basic, dovrai inserire una richiesta alla  Windows Multimedia DLL con il comando relativo. Devi dichiarare la DLL nel tuo progetto.

Dichiarazioni
Copia questo codice nella sezione dichiarazioni di un modulo o di un form.

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 

Procedure
Per aprire la porta del CD, usa questo codice:

retvalue = mcisendstring("set CDAudio door open", _
returnstring, 127, 0) 

Per chiudere la porta del CD,usa questo codice:

retvalue = mcisendstring("set CDAudio door closed", _
returnstring, 127, 0)

Testato su: Windows 98, Windows Me, xxxxxxxxxxx