XML-Daten aus Internet laden

[binderj1]

hallo
ich kämpfe schon seit tagen mit dem problem, das ich xml-daten vom Internet holen muss.
was muss ich ändern, damit es endlich läuft, bzw. sollen die daten jede minute abgeholt werden.

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim reader As Xml.XmlReader

        Dim myXMLDoc As New Xml.XmlDocument
        reader = Xml.XmlReader.Create("www.binder.bplaced.net/daten.xml")

        myXMLDoc.Load(reader)

        Dim alarmstufe As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/alarmstufe")
        alarmstufe = alarmstufe.FirstChild
        Label1.Text = alarmstufe.Value.ToString

        Dim meldebild As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/meldebild")
        meldebild = meldebild.FirstChild
        Label2.Text = meldebild.Value.ToString

        Dim nummer1 As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/nummer1")
        nummer1 = nummer1.FirstChild
        Label3.Text = nummer1.Value.ToString

        Dim nummer2 As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/nummer2")
        nummer2 = nummer2.FirstChild
        Label4.Text = nummer2.Value.ToString

        Dim nummer3 As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/nummer3")
        nummer3 = nummer3.FirstChild
        Label5.Text = nummer3.Value.ToString

        Dim plz As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/plz")
        plz = plz.FirstChild
        Label6.Text = plz.Value.ToString

        Dim strasse As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/strasse")
        strasse = strasse.FirstChild
        Label7.Text = strasse.Value.ToString

        Dim ort As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/ort")
        ort = ort.FirstChild
        Label8.Text = ort.Value.ToString

        Dim abschnitt As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/abschnitt")
        abschnitt = abschnitt.FirstChild
        Label9.Text = abschnitt.Value.ToString

        Dim objekt As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/objekt")
        objekt = objekt.FirstChild
        Label10.Text = objekt.Value.ToString

        Dim bemerkung As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/bemerkung")
        bemerkung = bemerkung.FirstChild
        Label11.Text = bemerkung.Value.ToString

        Dim einsatzerzeugt As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/einsatzerzeugt")
        einsatzerzeugt = einsatzerzeugt.FirstChild
        Label12.Text = einsatzerzeugt.Value.ToString

        Dim melder As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/melder")
        melder = melder.FirstChild
        Label13.Text = melder.Value.ToString

        Dim meldertel As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/meldertel")
        meldertel = meldertel.FirstChild
        Label14.Text = meldertel.Value.ToString

        Dim einsatznr As Xml.XmlNode = myXMLDoc.SelectSingleNode("/root/einsatz/einsatznr")
        einsatznr = einsatznr.FirstChild
        Label15.Text = einsatznr.Value.ToString

    End Sub

End Class