Set iTunes=CreateObject("iTunes.Application") iTunes.Windows.Item(1).Minimized=True