WebBrowser0为web浏览器控件
Private Sub 转到_Click()
    WebBrowser0.Silent = True  ‘取消打开网页时脚本错误提示
    WebBrowser0.Navigate "www.baidu.com"    ’打开百度网站
 End Sub
…………………………………………………..，这中间的代码是禁止web控件在新浏览器打开，只能在web控件里面打开
public strURL as string   '在模块里面定义一个字符串变量
Private Sub WebBrowser0_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Cancel = True
    WebBrowser0.Silent = True
    WebBrowser0.Navigate strURL
End Sub
Private Sub WebBrowser0_StatusTextChange(ByVal Text As String)
    strURL = Text
End Sub
……………………………………………….
以下是用代码登录163邮箱，并用web控件显示
Private Sub Ctl163邮箱_Click()
Dim zhmz As String
Dim mmmz As String
Dim dzmz As String
zhmz = Me.账号
mmmz = Me.密码
dzmz = "https://reg.163.com/logins.jsp?username=" & zhmz & "&password=" & mmmz & "&url=http://fm163.163.com/coremail/fcg/ntesdoor2"
 WebBrowser0.Silent = True
    WebBrowser0.Navigate dzmz
End Sub