Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
      Dim XMLDoc As XElement = XElement.Load( _
      "http://maps.google.com/maps/geo?output=xml&q=reibschental 45," & _
      "78120,furtwangen")
 
      Dim xn As XNamespace = XMLDoc.Attribute("xmlns").Value
 
      Dim TrefferListe = From Knoten In XMLDoc.Descendants(xn + "Point") _
               Select Knoten.Element(xn + "coordinates").Value
 
   End Sub

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control