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