|
|
|
|
 Click here to copy the following block | <System.Runtime.InteropServices.DllImport("winmm.dll")> Shared Function _
mciSendString(ByVal lpstrCommand As String, ByVal lpstrReturnString As _
String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As _
Integer
End Function
Sub OpenCDDoor()
mciSendString("Set CDAudio Door Open Wait", vbNullString, 0, 0)
End Sub
Sub CloseCDDoor()
mciSendString("Set CDAudio Door Closed Wait", vbNullString, 0, 0)
End Sub |
|
|
|
|
|
|
Submitted By :
Nayan Patel
(Member Since : 5/26/2004 12:23:06 PM)
|
 |
|
|
Job Description :
He is the moderator of this site and currently working as an independent consultant. He works with VB.net/ASP.net, SQL Server and other MS technologies. He is MCSD.net, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting. |
|
View all (893) submissions by this author
(Birth Date : 7/14/1981 ) |
|
|