Ayuda!!!!!!!!!!!!!!!!

[chivi]

Hola!

Te explico:

En un formulario nuevo creamos un botón y le dclaramos lo siguiente:
Dim res As Long, returnstring As String * 127
res = mciSendString("set CDAudio door open", returnstring, 127, 0)

Luego creamos un Módulo nuevo y le introducimos:
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

Y ya con eso, luego a tu gusto lo pones como desees.

Espero que te sirva.
Saludos!