Code
以下是完整的代码，实现了右键屏蔽和滚动条滚到底部的功能 

'------------------------------------------------------ 
'        程序名称:WebBrowserDemo 
'        功    能:屏蔽鼠标右键,控制滚动条位置 
'        作    者:lyserver 
'------------------------------------------------------ 
Option Explicit 

Dim WithEvents m_pDoc As MSHTML.HTMLDocument 

Private Sub Form_Load() 
    Me.WebBrowser1.Navigate2 "http://www.google.cn" 
End Sub 

Private Function m_pDoc_oncontextmenu() As Boolean 
    '屏蔽鼠标右键 
    m_pDoc_oncontextmenu = False 
End Function 

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) 
    Dim Item As Object 
    Dim strHTML As String 
    
    '设置滚动条到底部 
    WebBrowser1.Document.parentWindow.Scroll 0, WebBrowser1.Document.Body.scrollHeight 
    
    '设置Document,将事件引入窗口的消息泵,实现鼠标右键的屏蔽 
    Set m_pDoc = WebBrowser1.Document 
End Sub