Inserite il seguente codice in un modulo:

Public Declare Function OpenDrawerCD Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Inserite il seguente codice in un bottone che servirà per aprire il cassetto:

OpenDrawerCD("set CDAudio door open", Nothing, 127, 0)

Inserite il seguente codice in un bottone che servirà per chiudere il cassetto:

OpenDrawerCD("set CDAudio door closed", Nothing, 127, 0)

Ovviamente nel caso di notebook, netbook e Co. il cassetto non si richiuderà. Ciao.