Где хранить настройки программы - Visual Basic .NET

Формулировка задачи:

Собственно, вопрос в названии. Пишу программу, в которой много настроек, как зашифрованных, так и нет. Сейчас встал вопрос: "Где всё-таки их хранить?". Засорять реестр очень не хочется, Settings.ini тоже не подходит из-за привязки к расположению программы. Выбор пал на хранение настроек рядом с программой в XML или своем файле со своей структурой. А что посоветуете вы?

Решение задачи: «Где хранить настройки программы»

textual
                            Листинг программы 
                        
 
                            
                        
Public Class Form1
    Friend Function RSettings(ByVal adress As String) As String
        On Error Resume Next
        Dim SetXml As New System.Xml.XPath.XPathDocument("\Settings.xml")
        RSettings = ""
        RSettings = SetXml.CreateNavigator.SelectSingleNode(adress).Value
    End Function
 
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim SetXml As New System.Xml.XmlTextWriter("\Settings.xml", System.Text.Encoding.GetEncoding(1251))
        SetXml.WriteStartDocument()
        SetXml.Formatting = System.Xml.Formatting.Indented
        SetXml.Indentation = 20
        SetXml.WriteStartElement("Настройки")
        SetXml.WriteAttributeString("Слева", Me.Left)
        SetXml.WriteAttributeString("Сверху", Me.Top)
        SetXml.WriteAttributeString("Ширина", Me.Width)
        SetXml.WriteAttributeString("Высота", Me.Height)
        SetXml.WriteEndElement()
        SetXml.Flush()
        SetXml.Close()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        On Error Resume Next
        Dim SetXml As New System.Xml.XPath.XPathDocument("\Settings.xml")
        Me.Left = RSettings("/Настройки/@Слева")
        Me.Top = RSettings("/Настройки/@Сверху")
        Me.Width = RSettings("/Настройки/@Ширина")
        Me.Height = RSettings("/Настройки/@Высота")
    End Sub
End Class