К сожалению, это очень открытый вопрос, поскольку формат требуемого XML будет определять вывод.
Один очень простой способ - это свернуть свой собственный XML:
Dim sbService As New StringBuilder
sbService.AppendLine("<?xml version=""1.0""?>")
sbService.AppendLine("<services>")
For Each item As KeyValuePair(Of String, Services) In dictservice
sbService.AppendFormat(" <service DisplayName=""{0}"" ServiceName=""{1}""></service>", item.Key, item.Value.ToString()).AppendLine()
Next
sbService.AppendLine("</services>")
Это создаст XML, подобный следующему:
<?xml version="1.0"?>
<services>
<service DisplayName="Application Experience" ServiceName="AeLookupSvc"></service>
</services>