WebBrowser 动态写入 HTML 代码

Private Sub Form_Load()

    Web.Navigate "about:blank"

End Sub

Private Sub Web_DocumentComplete(ByVal pDisp As Object, URL As Variant)

    If pDisp Is Web.Object Then

        With Web.Document

            .open

            .write ("")

            .Close

        End With

    End If

End Sub