Сообщество IT-специалистов
Ответы на любые вопросы об IT
Профессиональное развитие в IT
Удаленная работа для IT-специалистов
Dim obj Set obj = CreateObject("Название_ ActiveX _компонента")
Название_ ActiveX _компонента
Set WMPlayer = CreateObject("WMPlayer.OCX.7") do WMPlayer.CdRomCollection.Item(0).Eject() loop