url 호출하는 VB소스

    Dim i As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LoadASP()
        TextBox1.Text = Now() ' & " 호출건수 : " & i
        AddHandler Timer1.Elapsed, AddressOf OnTimedEvent
    End Sub

    Public Sub OnTimedEvent(ByVal source As Object, ByVal e As ElapsedEventArgs)

        'If i > 19800 Then
        '   Dispose()
        'Else
        LoadASP()
        'End If
        TextBox1.Text = Now() ' & " 호출건수 : " & i
    End Sub

    Public Sub LoadASP()
        Dim URL As String, TTTWebClient As Object, myDatabuffer As Object

        URL = "http://www.naver.com/"
        TTTWebClient = New WebClient
        myDatabuffer = TTTWebClient.DownloadData(URL)
        TTTWebClient.Dispose()

        i = i + 1

    End Sub