vb6动态创建webbrowser

Option Explicit Private WithEvents IE As VBControlExtender Private Sub Command1_Click() Dim IE Set IE = Me.Controls.Add("Shell.Explorer.2", "IE", Me)
    IE.Top = 0 IE.Left = 0 IE.Width = 5000 IE.Height = 5000 IE.Width = Me.ScaleWidth
    IE.Height = Me.ScaleHeight
    IE.Visible = 1 Dim WebBrowser Set WebBrowser = IE.Object
    WebBrowser.Silent = True WebBrowser.Navigate "http://www.baidu.com" End Sub Private Sub IE_ObjectEvent(Info As EventInfo)
    Debug.Print Info.Name End Sub Private Sub Command2_Click()
    Debug.Print IE.object.document.All(0).outerHTML          ‘获取真正的网页源码
End Sub