Opening and closing the CD door

<System.Runtime.InteropServices.DllImport("winmm.dll")> Shared Function _
    mciSendString(ByVal lpstrCommand As String, ByVal lpstrReturnString As _
    String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As _
    Integer
End Function

Sub OpenCDDoor()
    mciSendString("Set CDAudio Door Open Wait", vbNullString, 0, 0)
End Sub

Sub CloseCDDoor()
    mciSendString("Set CDAudio Door Closed Wait", vbNullString, 0, 0)
End Sub