<http://xlbysteph.free.fr/aideinformatique/multimedia.html>
Declare Sub mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand As String, _
ByVal lpstrReturnString As Any, ByVal uReturnLength As long, _
ByVal hwndCallback As long)
Sub OpenCDTray()
mciSendStringA "Set CDAudio door Open", 0&, 0, 0
End Sub
Sub CloseCDTray()
mciSendStringA "Set CDAudio door Closed", 0&, 0, 0
End Sub