VB6でフォームにWebBrowserコントロールを配置しそこにコンテンツを直接流し込む

ちょっとはまった。
まず、ページを開かないと、Documentオブジェクトにアクセスすることができない。
で、ページの読み込みが完了するタイミングはDocumentCompleteということで以下のようなコードになる。
(フォームにWebBrowserコントロールを配置して..)

Private Sub Form_Load()
    WebBrowser1.Navigate "about:blank"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    If URL = "about:blank" Then
        Set doc = WebBrowser1.Document
        doc.body.innerHTML = "<div><img src='file:///d:/Projects/src/IEcontrol/world.png'/><span>IEコントロール</span></div>" & _
                            "<div><input type='text' value='000.00' size='10'/>" & _
                            "<span>Kg</span></div>" & _
                            "<style type='text/css'>span{color:#666666;} *{padding:0;margin:0}</style>"
    End If
End Sub