Class Program
Private Shared Sub Main(ByVal args As String())
Dim config As Configuration = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
Dim section As ConfigurationSection = config.GetSection("settings1")
'protect if not protected.
If Not section.SectionInformation.IsProtected Then
section.SectionInformation.ProtectSection("sectionname")
End If
'set the force save.
section.SectionInformation.ForceSave = True
'do a save
config.Save(ConfigurationSaveMode.Modified)
End Sub
End Class