Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim WebStream As New System.Net.WebClient
        Dim SourceCodeStream As System.IO.Stream
        For Each proxys As String In myProxyName.Lines
            Dim proxy As New WebProxy(proxys)
            WebStream.Proxy = proxy
 
            Try
                SourceCodeStream = WebStream.OpenRead(myWebAddress.Text)
                Dim objReader As System.IO.StreamReader = New _
                  System.IO.StreamReader(SourceCodeStream)
                WebSource.Text = objReader.ReadToEnd
                WebBrowser1.Navigate(myWebAddress.Text)
 
            Catch ex As Exception
                'MsgBox(ex.Message)
                ListBox1.Items.Add((ex.Message))
 
            End Try
        Next proxys
 
    End Sub
End Class