Si quieres abrir o cerrar la bandeja del CD-Rom desde Visual Basic, puedes enviar el mensaje a Windows por medio de la DLL Multimedia "winmm.dll". Incluye la declaración en un módulo: Option Explicit 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 Crea dos botones y copia el siguiente código en el formulario. Option Explicit Private Sub Command1_Click() ' Abrir bandeja CD-Rom mciSendString "set CDAudio door open", "", 127, 0 End Sub Private Sub Command2_Click() ' Cerrar bandeja CD-Rom mciSendString "set CDAudio door closed", "", 127, 0 End Sub Código enviado por MavericK Fecha: 28/05/2000