Private Sub OPEN_Click()
mciSendString "Set CDAudio Door Open Wait", _
0&, 0&, 0&
End Sub


Private Sub CLOSE _Click()
mciSendString "Set CDAudio Door Closed Wait", _
0&, 0&, 0&
End Sub


Private Sub Both_click()
mciSendString "Set CDAudio Door Open Wait", _
0&, 0&, 0&
mciSendString "Set CDAudio Door Closed Wait", _
0&, 0&, 0&
End Sub