vb6 VScroll1.Max = WebBrowser1.Document.body.scrollHeight - WebBrowser1.Height 对像不支持该属性或方法

在VB6中，当你尝试将 `VScroll1.Max` 赋值给 `WebBrowser1.Document.body.scrollHeight - WebBrowser1.Height` 的时候，可能会遇到错误，因为`WebBrowser1` 控件并不直接提供这样的属性来获取整个网页的滚动条最大值。`WebBrowser1.Document.body.scrollHeight` 可以获取文档主体元素的高度（包括滚动高度），而 `WebBrowser1.Height` 则是浏览器控件自身的可视区域高度。

实际上，`VScroll1.Max` 属性通常用于设置垂直滚动条的最大可滑动距离，它基于的是控件的可视区域大小。如果你想让滚动条能够完全覆盖浏览器的内容，你可能需要手动计算滚动范围，并将其赋值给 `VScroll1.Value` 或者监听 `DocumentCompleted` 事件，在页面加载完成后动态更新滚动条的范围。

以下是一个示例，演示如何在 `DocumentCompleted` 事件中计算并设置滚动范围：

Private Sub WebBrowser1_DocumentCompleted()
    Dim scrollHeight As Long
    scrollHeight = WebBrowser1.Document.body.scrollHeight
    If scrollHeight > WebBrowser1.ClientHeight Then
        VScroll1.Max = scrollHeight - WebBrowser1.Height
        VScroll1.Value = VScroll1.Max ' 或者仅设置 Max 使得开始时即可见全部内容
    End If
End Sub

这里假设 `ClientHeight` 表示控件的可视区域高度。如果 `scrollHeight` 大于这个值，就说明内容需要滚动才能看到底部，此时设置 `Max` 和 `Value` 以便显示所有内容。