Private Sub FillYtMarker(m As WpfOSMMap.Marker)
        If m.YouTubeVideoID <> String.Empty And m.PopupTyp = _
          WpfOSMMap.PopupTypEnum.YouTube Then
 
            Dim xDoc As XDocument = XDocument.Load(String.Format("{0}/{1}", _
              "http://gdata.youtube.com/feeds/api/videos", m.YouTubeVideoID))
            Dim title = xDoc.Root.<title>.Value
            Dim content = xDoc.Root.<content>.Value
            Dim author = xDoc.Root.<author>.<name>.Value
 
            m.PopupHeader = String.Format("{0} @ {1}", title, author)
            m.PopupDescription = content
 
            Try
                Dim nsGeorss = xDoc.Root.GetNamespaceOfPrefix("georss")
                Dim nsGml = xDoc.Root.GetNamespaceOfPrefix("gml")
                Dim longLat = xDoc.Root.Element(XName.Get("where", _
                  nsGeorss.NamespaceName)).Element(XName.Get("Point", _
                  nsGml.NamespaceName)).Element(XName.Get("pos", _
                  nsGml.NamespaceName)).Value().Split(" "c)
                Dim latitude = longLat(0)
                Dim longitude = longLat(1)
                m.Longitude = Decimal.Parse(longitude, New _
                  Globalization.CultureInfo("en-US"))
                m.Latitude = Decimal.Parse(latitude, New _
                Globalization.CultureInfo("en-US"))
            Catch ex As Exception
                Debug.WriteLine(ex.Message)
            End Try
        End If
    End Sub