Forma iki tane command ekleyin ve şu kodları yazın... Kod: Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long Private Sub Command1_Click() mciExecute ("set cdaudio door open") 'Cdrom aç End Sub Private Sub Command2_Click() mciExecute ("set cdaudio door closed") ' Cdrom kapat End Sub