vb的webbrower浏览器用不了呢

Private Sub Form_Load()
'消除弹窗
WebBrowser1.Silent = True
'程序装入后进入IE设定的起始页
WebBrowser1.Navigate "https://http://cxfw.jtyst.xinjiang.gov.cn/home/index"
'0.5s响应一次
Timer1.Interval = 500
'宏定义量进行赋值
inf = 9999
'数据库初始化
End Sub
Private Sub Timer1_Timer()
If qq = 3 Then '只执行一次
'移动网页
WebBrowser1.Document.parentwindow.scrollby 280, 460
'消除滚动条
WebBrowser1.Document.Body.Scroll = "no"
'缩放
WebBrowser1.Document.Body.Style.Zoom = 0.75
End If
qq = qq + 1
End Sub