Type Info:
Windows As Windows
Dim App As Application Dim Windows As Windows Set App = Application Set Windows = App.Windows