Public Sub NewWindow3(ByVal pDisp As Object, ByRef Cancel As Boolean, _
          ByRef Flags As Object, ByRef UrlContext As String, ByRef Url As _
          String) Implements DWebBrowserEvents2.NewWindow3
 
            m_Browser.OnNewWindowExtended(Url, Cancel, CType(Flags, NWMF), _
              UrlContext)
 
        End Sub
    End Class
 
    <ComImport(), _
    Guid("34A715A0-6587-11D0-924A-0020AFC7AC4D"), _
    InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIDispatch), _
    TypeLibType(TypeLibTypeFlags.FHidden)> _
    Public Interface DWebBrowserEvents2
 
        <DispId(250)> _
        Sub BeforeNavigate2(<[In](), MarshalAs(UnmanagedType.IDispatch)> _
        ByVal pDisp As Object, _
        <InAttribute(), MarshalAs(UnmanagedType.BStr)> ByRef URL As String, _
        <InAttribute()> ByRef flags As Object, _
        <InAttribute(), MarshalAs(UnmanagedType.BStr)> ByRef targetFrameName _
        As String, _
        <InAttribute()> ByRef postdata As Object, _
        <InAttribute(), MarshalAs(UnmanagedType.BStr)> ByRef headers As String, _
        <InAttribute(), OutAttribute()> ByRef cancel As Boolean)
 
        'Note: Postdata is a SafeArray but for some reason, if I do a proper 
        ' declaration, the event will not be raised:
        '<[In](), MarshalAs(UnmanagedType.SafeArray, 
        ' safearraysubtype:=VarEnum.VT_UI1)> ByRef postdata() As Byte, _
 
        <DispId(273)> _
        Sub NewWindow3(<InAttribute(), MarshalAs(UnmanagedType.IDispatch)> _
        ByVal pDisp As Object, _
        <InAttribute(), OutAttribute()> ByRef cancel As Boolean, _
        <InAttribute()> ByRef Flags As Object, _
        <InAttribute(), MarshalAs(UnmanagedType.BStr)> ByRef UrlContext As _
        String, _
        <InAttribute(), MarshalAs(UnmanagedType.BStr)> ByRef Url As String)
    End Interface
 
End Module