Lecteur cd en vba

'*******' DECLARATION DES API '********'
Private Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
pstrReturnString As String, ByVal uReturnLength As Long, ByVal _
wndCallback As Long) As Long
'*******' DECLARATION DES API '********'

Public Function OpenOrShutCDDrive(DoorOpen As Boolean) As Boolean

Dim lRet As Long
Dim sRet As Long

    If DoorOpen Then
        lRet = mciSendString("set CDAudio door open", sRet, 127, 0)
    Else
        lRet = mciSendString("set CDAudio door closed", sRet, 127, 0)
    End If

' Cette fonction retourne 0 si l'opération est réussie.
' Si l'opération n'est pas réussie, elle retourne un nombre différent de 0
    OpenOrShutCDDrive = lRet

End Function

Private Sub OpenCDDrive_Click()
    OpenOrShutCDDrive (True)
End Sub

Private Sub ShutCDDrive_Click()
    OpenOrShutCDDrive (False)
End Sub