呃,这个还真没有办法,你试试缩放吧
Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").BaseControlweb.Navigate("http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=53095")Do Until web.ReadyState = 4 Application.DoEventsLoop
web.Document.Body.Style = "zoom:0.5"