نمونه کد های کوچک و کاربردی VB.Net

[ravegoat]

ابتدا کد زیر را در Public Class فرم قرار دهید:

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal Command As String, ByVal ReturnString As String, ByVal ReturnLength As Long, ByVal Callback As Long) As Long

بعد از فرمان های زیر استفاده می کنید:

'باز کردن
mciSendString("Set CDAudio Door Open Wait", 0, 0, 0)

'بستن
mciSendString("Set CDAudio Door Closed Wait", 0, 0, 0)