[3booody]

لايوجد خطأ في كود الاخ ابو روضة تأكد جيدا من شغلك
واذا عندك خطأ معين صورلنا الخطأ

الوصول ل Api ويكون ملكان هذا الدالة بداخل الكلاس مباشرة أي ليس بحدث

كود :

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
   (ByVal lpszCommand As String, ByVal lpszReturnString As String, _
   ByVal cchReturnLength As Long, ByVal hwndCallback As Long) As Long

فتح ويكون بحدث معين

كود :

mciSendString("set CDAudio door open", 0, 0, 0)

اغلاق يكون ايضا بحدث معين

كود :

mciSendString("set CDAudio door closed", 0, 0, 0)