visual basic?

[REdRaider2275]

does anybody know the commond for Visual basic 6.0 to tell the computer to open or close the cd rom drive (d:/ or e:/ drives)?

[Tedob1]

Public Sub EjectCD()
Call mciSendString("set CDAudio Door Open Wait", 0&, 0&, 0&)
bopen = True
End Sub

Public Sub CloseCD()
Call mciSendString("set CDAudio Door Closed Wait", 0&, 0&, 0&)
bopen = False
End Sub

liberated from some web site somewhere