Visual Basic - Pregunta Interesante... ;=)

SALUDOS DESDE COSTA RICA

LA CONSULTA ES LA SIGUIENTE:

- Como puedo realizar la instruccion para que el CD ROM se expulsado?

Nota: Estoy haciendo un proyecto en Visual Basic y necesito esta rutina para cuando el "Cliente retira dinero y se abra la compuerta del CD con un mensaje que diga <Retire su dinero> "

Bueno Muchas Gracias por leer la consulta y si no pueden ayudarme que mas da, el cajero ya casi funciona! :)

Necesitas declarar la siguiente API

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

'Y la llamada desde código es....

Dim lRetVal as Long
Dim vValue as Variant
sim sReturn as String

If lRetVal = 1 Then vValue = mciSendString("set CDAudio door open", sReturn, 127, 0)

If lRetVal = 2 Then vValue = mciSendString("set CDAudio door closed", sReturn, 127, 0)