Public Class Form1
    Private Declare Function mciExecute Lib "winmm.dll" (ByVal IpstrCommand As String) As Long
    Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
        mciExecute("Set CD Audio Door Open")

    End Sub

    Private Sub ButtonX2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX2.Click
        mciExecute("Set CD Audio Door closed")
    End Sub
End Class