简单修改了一下，大家指正。

果然是简易的

果然简单

简单就好

回复 4楼 xxfs91
自己去试试，不过我昨晚发现最小化就会出错！
需要加一句错误处理语句
'以下根据窗口的变换变换webbrowser控件的大小
Private Sub Form_Resize()
On Error GoTo c:
WebBrowser1.Width = Me.Width - 45
c:
End Sub
===================================================
我把上面的WebBrowser1.Height = Me.Height - 1400
修改为
WebBrowser1.Height = Me.Height - 400

修改之后在winxp+vb 6.0通过调试。

支持开源

穿越时空的打捞，2020年就需要这么简洁的浏览器