• Home
 · 
• Miscellaneous
 · 
• Open/Close the CD-Rom drive tray

Open/Close the CD-Rom drive tray

Open/Close the CD-Rom drive tray

Rate Open/Close the CD-Rom drive tray

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Dim strReturn As Long

'To open the CD door, use this code:
lngReturn = mciSendString("set CDAudio door open", strReturn, 127, 0)

'To close the CD door, use this code:
lngReturn = mciSendString("set CDAudio door closed", strReturn, 127, 0)