[3booody]

اخي الطريقة بسيطه أولآ ضع هذه الدالة

كود :

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

ولفتح السي دي ضع هذا الكود في زر بوتون

كود :

Dim o As Long = mciSendString("set CDAudio door open", "sting", 127, 0)