'Den Request für die Datei erstellen
  Dim request As System.Net.HttpWebRequest =
      DirectCast(Net.WebRequest.Create _
      (New Uri("http://" & Filename)), System.Net.HttpWebRequest)
 
  Dim bmp As Bitmap = Nothing 'für das Laden des Bildes
 
  Try
     'Erstellung des Response.
     'Falls die Datei nicht gefunden wird, 
     'kommt es hier zu einer Ausnahme
     'Using-Blöcke stellen die Freigabe der Ressourcen sicher
     Using response As System.Net.HttpWebResponse = _
        DirectCast(request.GetResponse, System.Net.HttpWebResponse)
 
        With response
           'Sobald Response erstellt ist, können Informationen 
           'zur Datei/Verbindung ermittelt werden
           Dim description As String = .StatusDescription
           Dim code As String = .StatusCode.ToString()
           Dim LastModified As String = .LastModified.ToLongDateString
           Dim contentlength As Long = .ContentLength
           Dim contenttype As String = .ContentType
 
           Dim r As DialogResult = _
              MessageBox.Show(_
             .ResponseUri.ToString & Environment.NewLine & _
             "Status: " & description & " / " & code & Environment.NewLine & _
             "Länge: " & (contentlength \ 1024).ToString & " KB" & _
             Environment.NewLine & _
             "Typ: " & contenttype & Environment.NewLine & _
             "Modifiziert: " & LastModified & Environment.NewLine & _
             Environment.NewLine & _
             "Diese Datei als Bitmap laden ?", _
             "HTTP-ResponseInfo", MessageBoxButtons.OKCancel)
 
            If r = DialogResult.OK Then
 
               'Falls der Benutzer zustimmt, wird die Bild-Datei geladen 
               Using mystream As IO.Stream = .GetResponseStream
                  bmp = New Bitmap(mystream)
               End Using
 
           End If
        End With
     End Using
 
  Catch ex As Exception
      MessageBox.Show(ex.Message)
End Try