Dim wr As Net.WebRequest = Net.WebRequest.Create(TextBox1.Text)
        Dim res As Net.WebResponse = wr.GetResponse
        Dim bmp As New Bitmap(res.GetResponseStream)
        PictureBox1.Image = bmp