Dim wc As New WebClient()
        wc.Credentials = New NetworkCredential("admin", "xxxxxx")
        Dim xml As String = wc.DownloadString( _
          "http://xxxxxxxx:9090/admin.cgi?mode=viewxml")
        wc.Dispose()
 
        Dim XMLDoc As New XmlDocument()
        XMLDoc.LoadXml(xml)
        Dim Knoten As XmlNode
        Dim stream As XmlNodeList = XMLDoc.SelectNodes("/SHOUTCASTSERVER")
        For Each Knoten In stream
            Label1.Text = Knoten.InnerText("CURRENTLISTENERS")
        Next

<?xml version="1.0"?>
<configuration>
  <system.net>
    <settings>
      <httpWebRequest useUnsafeHeaderParsing="true" />
    </settings>
  </system.net>
</configuration>