Shared Function GetXML(ByVal [Assembly] As System.Reflection.Assembly, ByVal _
  Name As String) As Xml.XmlDocument
        For Each s As String In [Assembly].GetManifestResourceNames
            If s.ToLower.EndsWith(Name.ToLower) Then
                Dim str As String = New Xml.XmlTextReader( _
                  [Assembly].GetManifestResourceStream(s)).ReadString
                Dim xmldoc As New Xml.XmlDocument
                xmldoc.LoadXml(str)
                Return xmldoc
            End If
        Next
        Return Nothing
    End Function