Abrir / Cerrar la bandeja de la unidad de CD-ROM


Explicamos aca como controlar por medio de dos botones la apertura y el cierre de la bandeja de carga de la unidad de CD's de la computadora. 

Para empezar habrá que agregar en cualquier módulo del proyecto la siguiente línea: 

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long 

Luego, en el formulario donde se desea trabajar colocar los dos botones que harán la apertura y el cierre de la bandeja.

Dentro del botón para abrir, colocar: 

ret = mciSendString("set CDAudio door open", returnstring, 127, 0) 

Y dentro del botón cerrar: 

ret = mciSendString("set CDAudio door closed", returstring, 127, 0)