' Hier sollte die Suchabfrage gestartet werden
    Private Sub SofortStartenToolStripMenuItem_Click(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      SofortStartenToolStripMenuItem.Click
 
        Dim sBuffer As String
        Dim sURL As String = _
          "http://www.eurobuch.com/extreq/meta/extquery.php?platform=xxxxx&pas" & _
          "word=xxxxxxxx&author=Brin&title=Entwicklungskrieg&format=xml"
 
        ' WebRequest
        Dim oRequest As Net.HttpWebRequest = Net.HttpWebRequest.Create(sURL)
 
        ' GET-Methode (wir wollen etwas abholen :-)
        oRequest.Method = "GET"
 
        ' Antwort auf unsere Anfrage abholen
        Dim oResponse As Net.HttpWebResponse = oRequest.GetResponse()
 
        ' Datenstrom auslesen
        Dim oStream As New IO.StreamReader(oResponse.GetResponseStream())
        sBuffer = oStream.ReadToEnd()
        oStream.Close()
 
        ' Beenden
        oResponse.Close()
 
        MsgBox(sBuffer)
 
    End Sub

' Hier sollte die Suchabfrage gestartet werden
    Private Sub SofortStartenToolStripMenuItem_Click(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      SofortStartenToolStripMenuItem.Click
 
        ' Create an XmlUrlResolver with default credentials.
        Dim resolver As New Xml.XmlUrlResolver()
        resolver.Credentials = Net.CredentialCache.DefaultCredentials
 
        ' Create the reader.
        Dim settings As New Xml.XmlReaderSettings()
        settings.XmlResolver = resolver
        Dim reader As Xml.XmlReader = Xml.XmlReader.Create( _
          "http://www.eurobuch.com/extreq/meta/extquery.php?platform=xxxxx&pas" & _
          "word=xxxxxxxx&author=Knight&title=Uriels Auftrag&format=xml")