Sub CaricaXML()
        Dim XmlConfig As New System.Xml.XmlDocument
        Dim PathAssembly as string = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().Location)
        If Not PathAssembly.EndsWith("\") Then
            PathAssembly += "\"
        End If

        PathAssembly += "nomeeseguibile.exe.config"

        'Carico il file XML nel DOM
        Try
            XmlConfig.Load(PathAssembly)
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
            MsgBox(ex.StackTrace.ToString)
        End Try

 End Sub