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