MessageBox.show(e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml) Dim s As String =e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml FileSys.WriteAllText("c:\data\default.html",s,False)