Dim doc As Size = Me.WebBrowser1.Document.Body.ScrollRectangle.Size
doc = Size.Add(doc, New Size(50, 50))
Dim wb As Size = Me.WebBrowser1.Size
Dim factor As String = (Math.Round(Math.Min(wb.Width / doc.Width, wb.Height / doc.Width), 2) * 100).ToString & "%"
Me.WebBrowser1.Document.Body.Style &= ";zoom:" & factor
Dim myTabPage As New TabPage()
myTabPage.Text = "Moon" & (TabControl1.TabPages.Count + 1)
TabControl1.TabPages.Add(myTabPage)
Dim wb As New WebBrowser
myTabPage.Controls.Add(wb)
' navigate
Do Until browser.ReadyState = WebBrowserReadyState.Complete
Application.DoEvents()
Loop
' handle document here