HTML in a WebBrowser control without a file

HTML in a WebBrowser control without a file

Add this code to a Form1:

Option Explicit

Private Sub Form_Load()
Web1.Navigate “about:blank”
End Sub

Private Sub Web1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim doc As HTMLDocument
Set doc = web1.Document
doc.body.innerHTML = “This is really cool I LOVE THE IE DOM!!”
End Sub