如下代码，想嵌入echart ，但是会打开单独的ie浏览器并且报错。

提示acticeX被禁用。如何实现在窗体内？

Dim ie As Object = CreateObject("InternetExplorer.Application")
vars("ie") = ie
ie.menubar=0 \'不显示IE对象菜单栏
ie.AddressBar=0 \'不显示IE对象地址栏
ie.ToolBar=0 \'不显示IE对象工具栏
ie.StatusBar=0 \'不显示IE对象状态栏

ie.Width=e.Form.Controls("panel1").width \'设置IE对象宽度
ie.Height=e.Form.Controls("panel1").height \'设置IE对象高度
ie.left = 0
ie.Top = 0
ie.Resizable=1 \'设置IE对象大小是否可以被改动
ie.Navigate("C:\\Users\\104143\\Downloads\\LTreport\\prlt.html")
\'ie.Navigate("www.baidu.com")
Application.DoEvents
Do While ie.Busy
    Application.DoEvents
Loop

System.Threading.Thread.Sleep(1000)
ie.visible=1 \'设置是否可见

\'上面是模拟一个打开的程序
vars("标题") = "百度一下"
Dim CallBack As New EnumWindowsProc(AddressOf EnumWindowsProcCallBack)
EnumWindows(CallBack, 0)
EnumWindows(CallBack, 0)