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