Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Interval = 1000
        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim i As New Uri("http://m.)
        WebBrowser1.Url = i
        Refresh()
    End Sub
End Class
运行会有“系统刷新”的声音 而且鼠标会显示“忙”
如何改？
望高手指点


[ 本帖最后由 leesan 于 2012-3-17 11:10 编辑 ]

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Interval = 1000
        Timer1.Start()
        Dim i As New Uri("http://m.)
        WebBrowser1.Url = i
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Refresh()
    End Sub
这样不会跳，我试过

这样的话WebBrowser1也不刷新了
原链接换成这个可以看出效果

 Dim i As New Uri("http://www.")

这是系统的声音


[ 本帖最后由 leesan 于 2012-3-17 18:04 编辑 ]

你这是1秒刷新一次吧，有这个必要吗？