Как развернуть окно в Internet Explorer средствами VBA?

[Скрипт]

Обсуждается библиотека "Microsoft Internet Controls".
Объект "InternetExplorer".

Под "развернуть" понимается кнопка, которая есть в правом верхнему углу окна.

Или не предусмотрено такое в "Microsoft Internet Controls"?

[Watcher_1]

На сколько я знаю только через API

[EducatedFool]

Скрипт, а пример файла можно?
Что-то я не совсем понял, что это за объект, и как его добавлять
(я пользуюсь объектом WebBrowser)

Вообще, можно развернуть на весь экран.
Когда тот же ролик на YouTube смотришь в WebBrowser, и нажимаешь в нём «Во весь экран», - разворачивается ведь.
Значит, можно это сделать и из макроса.

PS: А кнопка «Развернуть» в правом верхнем углу, - тут вряд ли поможет
(ну или, действительно, с WinAPI что-то мудрить)

[Скрипт]

EducatedFool, я запускаю "Internet Explorer":

    'Библиотека: Microsoft Internet Controls.
    Dim myIE As SHDocVw.InternetExplorer

    '1. Запуск программы "Internet Explorer" (далее - "IE").
    Set myIE = CreateObject(Class:="InternetExplorer.Application")
     
    '2. Отображание на мониторе программы "IE".
    myIE.Visible = True

После этих действий "IE" в маленьком окне.

[EducatedFool]

Как вариант:

myIE.TheaterMode = True

или

 myIE.FullScreen = True

Ну или через WinAPI:

Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Sub test()
    On Error Resume Next
    ' Библиотека: Microsoft Internet Controls.
    Dim myIE As SHDocVw.InternetExplorer

    '1. Запуск программы "Internet Explorer" (далее - "IE").
    Set myIE = CreateObject(Class:="InternetExplorer.Application")

    '2. Отображание на мониторе программы "IE".
    myIE.Visible = True
    
    ShowWindow myIE.hwnd, 3 ' SW_SHOWMAXIMIZED = 3
End Sub