وبلاگ رسمی مهدی غلامی میاندهی

براي اين كار ابتدا تابع زير را در قسمت General فرم كد در Visual Basic كپي كرده

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

كد:                          &mciSendString "set cdaudio door open wait", 0&, 0&,0

و در command2

                            &mciSendString "set cdaudio door closed wait", 0&, 0&,0

و در command3 كلمه end را تايپ مي كنيم