Olá pessoal, achei um código nas Dicas, porém não consigo abrir, nem fechar o outro drive de CD, possuo:

DVD-R > Master

CD-RW > Slave

Código:

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Command1_Click()

'Abrir
Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&)
End Sub

'Fechar

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

 

Notei que se alterar Set CDAudio Door Closed/Open Wait ele pára de fechar/abrir qualquer drive. Alguém poderia me ajudar?