Eject CD-Rom problem using VB code

[Serge]

This always works for me:

Private 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

'-------Put this on any event
Call mciSendString("Set CDAudio Door open Wait", 0&, 0&, 0&)

------------------

Serge

Software Developer
[email protected]
[email protected]
ICQ#: 51055819