我写的代码如下Private Sub Form_Resize()
If WindowState = 2 Then
WebBrowser1.Height = Screen.Height - Image3.Height
Me.HScroll1.Visible = True
Me.HScroll1.Max = Screen.Width
Me.HScroll1.Min = 0
Me.HScroll1.SmallChange = 1
Me.HScroll1.LargeChange = 180
Else
If WindowState = 1 Then
WebBrowser1.Height = Screen.Height - 540
End If
End If
End Sub