Controler l'ouverture et la fermeture du lecteur de cd

C'est trés facile 2 boutons suffisent , ainsi que ce code !

Public Class Form1
    Private Declare Function CtrlCdrom Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CtrlCdrom("set cdaudio door open", "0", "0", "0")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        CtrlCdrom("set cdaudio door closed", "0", "0", "0")
    End Sub
End Class

Cordialement P1l0u