Program yapıyoruz, ve CD ROM'umuz açılıp kapanıyor =)



[FONT=Times New Roman][FONT=Times New Roman]Private Declare Function mciExecute Lib "winmm.dll" (WmAraci Kmlhtpgl) As Long[/FONT]
[FONT=Times New Roman]Private Sub Command1_Click()[/FONT]
[FONT=Times New Roman]mciExecute ("Set CDAudio door Open")[/FONT]
[FONT=Times New Roman]End Sub[/FONT]

[FONT=Times New Roman]Private Sub Command2_Click()[/FONT]
[FONT=Times New Roman]mciExecute ("Set CDAudio door closed")[/FONT]
[FONT=Times New Roman]End Sub[/FONT]

[/FONT]