>*!* Automatically open and close the default CD drawer. >Declare Long mciSendString in winmm as mciSendStringA string lpstrCommand, ; long lpstrReturnStr, Long wReturnLenLong, Long hCallBack >local intReturn, nfilehandle >=mciSendStringA( "Set CDAudio Door Open Wait", 0, 0, 0) >intReturn = messagebox("Please insert a the CD and click OK", 0, ; "Unable to locate CD...") >=mciSendStringA( "Set CDAudio Door Closed Wait", 0, 0, 0) >>