Visual Basic : CD-Rom Açıp Kapatma

Gerekenler;
2 Adet Button

Kod:

Formun General Kısmına;
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long 

Buton1e;  [cd rom açma]
Private Sub Command1_Click()
mciExecute ("Set CDAudio door Open")
End Sub

button2ye; [cd-rom kapatma]
Private Sub Command2_Click()
mciExecute ("Set CDAudio door closed")
End Sub