etCDROMParameters Lib "cdrip.dll" (pParam As
 CDROMPARAMS) As Long
Private Declare Sub CR_SetActiveCDROM Lib "cdrip.dll" (ByVal nActiveDrive As
 Long)
'// Checks if the unit is ready (i.e. is the CD media present)
Private Declare Function CR_IsUnitReady Lib "cdrip.dll" () As Long

'// Eject the CD, bEject=TRUE=&gt; the CD will be ejected, bEject=FALSE=&gt; the CD
 will be loaded
Private Declare Function CR_EjectCD Lib "cdrip.dll" (ByVal bEject As Long) As
 Long

'// Check if the CD is playing
Private Declar