WebBrowser非表示

UserForm1.frm

Option Explicit

Private Declare PtrSafe _
Function WindowFromAccessibleObject Lib "oleacc.dll" ( _
    ByVal pacc As IAccessible, _
    hwnd As Any _
) As Long

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


Private Sub UserForm_Initialize()

    Dim hwnd As LongPtr
    WindowFromAccessibleObject Me.WebBrowser1, hwnd
    ShowWindow hwnd, vbHide


End Sub