| Open Cd/DVD drive |
 |
 |
 |
| Tutorials | |||
| Written by Administrator | |||
|
[code] 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
[/code]
|
