Crea un proyecto nuevo y añade dos CommandButton al formulario. Despues añade este codigo:
Código:
Option Explicit
'Ejecuta un comando a un dispositivo MCI:
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Sub Form_Load()
'Inicializa las comunicaciones con el dispositivo de CD:
Call mciExecute("open cdaudio alias cd")
End Sub
Private Sub Form_Unload(Cancel As Integer)
'Libera las comunicaciones con el dispositivo de CD:
Call mciExecute("close cd")
End Sub
Private Sub Command1_Click()
'Abre la bandeja:
Call mciExecute("set cd door open")
End Sub
Private Sub Command2_Click()
'Cierra la bandeja:
Call mciExecute("set cd door closed")
End Sub Salu2...