Olhando nas dicas vi uma programação para abrir e fechar o dive d cd:

 

Private Declare Function mciSendString Lib "winmm.dll" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Command1_Click()
'PARA ABRIR
Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&)
End Sub

Private Sub Command2_Click()
'PARA FECHAR
Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0&, 0&)
End Sub

 

só q quando temto abrir o drive ...aparece o seguinte erro.:

run-time error '453'

"Can´t find DLL entry point mciSendString in winmm.dll"

 

Oq devo mudar..??

TENTE COLOCAR DO MESMO JEITO QUE ESTA NO SITE

 

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

Ja tentei e nau deu...

acabei de fazer aqui esta funcionando.............

 

o seu

Private Declare Function mciSendString Lib "winmm.dll" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

 

o do site

Valew..