براي اين كار ابتدا تابع زير را در قسمت general فرم كد در vb كپي كرده

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

حال سه command بر روي فرم ايجاد مي كنيم.

در command1 كد &mciSendString "set cdaudio door open wait", 0&, 0&,0 و در command2

كد &mciSendString "set cdaudio door closed wait", 0&, 0&,0 و در command3 كلمه end را تايپ مي كنيم