Dim wc As New Net.WebClient()
                If DR("SourceUser") <> "" Then
                    wc.UseDefaultCredentials = True
                    wc.Credentials = New Net.NetworkCredential(DR( _
                      "SourceUser").ToString, DR("SourcePass").ToString)
                End If
                Using stream As New IO.MemoryStream(wc.DownloadData(DR( _
                  "SourceUrl").ToString))
 
                    originalBild = Image.FromStream(stream)
 
                End Using
 
'... verarbeite(originalBild)

Joachim