Private Sub Command1_Click() Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&) End Sub Private Sub Command2_Click() Call mciSendString("Set CDAudio Door closed Wait", 0&, 0&, 0&) End Sub