' Öppna CD Lucka

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

' Stäng CD Lucka

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