Abrir y cerrar el DVD y la grabadora

Vamos a ver, con el objeto MMControl que está en el menu Proyecto-Componentes-Microsoft Multimedia Control. Ejemplo:
Private Sub Abrir_Click()
CommonDialog1.Filter = "Archivos de video (*.avi)|*.avi|Archivos de sonido (*.wav)|*.wav"
CommonDialog1.InitDir = "c:\mis documentos\"
CommonDialog1.ShowOpen
MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "Open"
End Sub
-----------------------------------
Private Sub EXPULSACD_Click()
MMControl1.command = "Eject"
End Sub
NOTA: MControl no se ve en ejecución.
Con lo que lo puedes utilizar sin problemas.