Public Shared Function RecupFichierImageInternet(ByVal UrlFichier As String) As Image
Dim WebClient As New System.Net.WebClient
Dim Img As Image
Try
Dim WebResponse As System.IO.Stream
Dim FichierDistant As String = UrlFichier
WebResponse = WebClient.OpenRead(FichierDistant)
Img = Image.FromStream(WebResponse)
WebClient.Dispose()
WebClient = Nothing
WebResponse.Close()
WebResponse = Nothing
Return Img
Catch ex As Exception
WebClient.Dispose()
WebClient = Nothing
Return Nothing
End Try
End Function