Yeni bir form oluşturun 2 adet Button ekleyin.

En başa şunu tanımlayın;

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long


Button1_Click olayına şu kodu yazın;

mciExecute("set cdaudio door open")


Button2_Click olayına şu kodu yazın;

mciExecute("set cdaudio door closed")