سلام...
DeleteSetting(My.Application.Info.AssemblyName, "Chek", "Date")

البته اون کد اولی یه شرط هم می خواد
If IsDate(GetSetting(My.Application.Info.AssemblyName, "Chek", "Date", )) Then
.
.
.
endif