WebBrowser控件总是最大化显示页面

编程时遇到一个问题：WebBrowser控件加载添加收件人页面时（弹出页面），WebBrowser控件显示区域很小，导致无法看到全部页面，并且和最大化后的窗体之间留有很大的空白区域。

解决：

Private Sub Form_Resize()
WebBrowser1.Left = Me.Left
WebBrowser1.Top = Me.Top + 270
WebBrowser1.Width = Me.Width
WebBrowser1.Height = Me.Height - 270
End Sub

同样在Form_Load()事件中添加以上代码，结果只能手动在最大化窗体才可行。

以上代码测试失败！

最终解决方法：

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Left = Me.Left
WebBrowser1.Top = Me.Top + 270
WebBrowser1.Width = Me.Width
WebBrowser1.Height = Me.Height - 270
End Sub