求教 一段简单的代码

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 编辑 ]