En un modulo, declara esto:
Código PHP:
Option Explicit
Public 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 tu formulario:
Para abrir:
Código PHP:
Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&)
Para cerrar:
Código PHP:
Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0&, 0&)
Espero que esto te ayude...
Creditos:
http://www.experts-exchange.com/Prog..._20012424.html 