случайная картинка из интернета

Ответ от Egregreh[гуру]
Попробуйте этот код:
' Copyright(c) 2010 danubetoronto@mail.ru
IImports System.Net
Imports System.IO
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim intNum As New Integer(Int(1+Rnd() * 30))
Dim strFile As New String("MyRand" & intNum & ".jpg")
Try
Dim strUrl As New String(" ссылка" & strFile)
Dim uri As New Uri(strUrl)
Dim requestHtml As WebRequest = WebRequest.Create(uri)
Dim responseHtml As WebResponse = requestHtml.GetResponse()
Dim reader As New StreamReader(responseHtml.GetResponseStream())
PictureBox1.Image = Image.FromStream(responseHtml.GetResponseStream())
Catch ex As Exception
End Try
End Sub
End Class