[ابو روضة]

جرب هذا أخى

كود :

Imports Microsoft.Win32.Registry
Imports Microsoft.Win32
Public Class Form1
   Public Pont As Point
   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 Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
       Try
           Call mciSendString("Set CDAudio Door Open", 0, 0, 0)
       Catch ex As Exception

       End Try
   End Sub