Private Sub mnuScroll1_Click()
'注意：必须在网页完全显示之后才可以运行
    WebBrowser1.Document.body.Scroll = "no" '不显示滚动条的办法
End Sub
Private Sub mnuScroll2_Click()
'注意：必须在网页完全显示之后才可以运行
    WebBrowser1.Document.body.Scroll = "Auto" '显示滚动条的办法
End Sub

向前翻页： Gokack
向后翻页： GoForward
主页：     GoHome

谢谢，我指的翻页是相当于拖动滚动条的翻页，也就是相当于按PgUp,PgDn的效果，有人知道吗？

我将Document.body.Scroll设成no之后，sendkey "{PgDn}"就没有用了，还有什么办法可以让它翻页吗？

Private Sub Command2_Click()
    WebBrowser1.Document.parentwindow.scrollby 0, 30
End Sub

点击command2向下翻页。

非常感谢，现在又出现一个问题，我如何判断网页已经完全显示了呢？

//我如何判断网页已经完全显示了呢？

网页显示完成时会触发DocumentComplete事件