27 | 05 | 2017

Open Cd/DVD drive

Public Sub OpenCDDVDDrive()
 
'***************************************
'**** Code from VisibleVisual.com ******
'***************************************
 
On Error GoTo error
retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)
Exit Sub
error:  MsgBox Err.Description, vbExclamation, "Error"
End Sub
Login

Sign up now and upload your code to the website.

Help us to continue.....
Statistics
Articles View Hits
2262532
Latest Articles