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 =
    IE.Left =
    IE.Width =
    IE.Height =
    IE.Width = Me.ScaleWidth
    IE.Height = Me.ScaleHeight
    IE.Visible =
    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