Kod:
[FONT=Times New Roman][FONT=Times New Roman]Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) 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]
