برنامه باز و بسته کردن درایو سی دی رام

دانلود نمیشه
فقط سورس اصلی که باعث بیرون اومدن یا داخل رفتن cdrom میشه رو تایپ کن
ممنون

Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long

Private Sub Command1_Click()
retvalue = mciSendString("set CDAudio door open", _
returnstring, 127, 0)

End Sub

Private Sub Command2_Click()
retvalue = mciSendString("set CDAudio door closed", _
returnstring, 127, 0)

End Sub