- Код: Выделить всё
Function load_web_image(ByVal url As String) As Object
Try
Dim myWebClient As New WebClient
Dim myStream As Stream = myWebClient.OpenRead(url)
Dim img As Image
img.FromStream(myStream)
Return img
myStream.Close()
Catch ex As Exception
Return "NoImage"
End Try
End Function