[ابو روضة]

ضع هذا الكود فى التصريحات بدل االأخر

كود :

<DllImport("winmm.dll")> _
   Private Shared Function mciSendString(ByVal command As String, ByVal buffer As String, ByVal bufferSize As Integer, ByVal hwndCallback As IntPtr) As Integer
   End Function

---

الكود كامل بعد إذن الاستاذ عاصم

كود :

Imports System.Runtime.InteropServices
Public Class Form1
   <DllImport("winmm.dll")> _
   Private Shared Function mciSendString(ByVal command As String, ByVal buffer As String, ByVal bufferSize As Integer, ByVal hwndCallback As IntPtr) As Integer
   End Function
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       mciSendString("set CDAudio door open", vbNullString, 0, IntPtr.Zero)
       Me.Text = "تم الفتح"
   End Sub
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       mciSendString("set CDAudio door closed", vbNullString, 0, IntPtr.Zero)
       Me.Text = "تم الغلق"
   End Sub
End Class