[ابراهيم]

PHP كود :

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 cmdOpen_Click()
        'Open the CD Drive
        mciSendString("set CDAudio door open", 0, 127, 0)
    End Sub