• Home
 · 
• Miscellaneous
 · 
• Open/Closes the CD-ROM Drive Tray! Great Code For Tricks, Jokes, And Music Players!!!!

Open/Closes the CD-ROM Drive Tray! Great Code For Tricks, Jokes, And Music Players!!!!

Open/Closes the CD-ROM Drive Tray! Great Code For Tricks, Jokes, And Music Players!!!!

Rate Open/Closes the CD-ROM Drive Tray! Great Code For Tricks, Jokes, And Music Players!!!!

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim lngReturn As Long
Dim strReturn As Long
lngReturn = mciSendString("set CDAudio door open", strReturn, 127, 0)
'use this to close the cd-rom
Dim lngReturn As Long
Dim strReturn As Long
lngReturn = mciSendString("set CDAudio door closed", strReturn, 127, 0)