SaveSetting(Application.ProductName, "Settings", "CheckBoxState", checkbox1.checkstate)
Dim x As String = GetSetting(Application.ProductName, "Settings", "CheckBoxState", 0)
checkbox1.checked = CInt(x)


If checkbox1.checked = true then my.settings.checkbox1 = "Checked" else my.settings.checkbox1 = "" end if
If my.settings.checkbox1 = "Checked" then checkbox1.checked = true else 'do nothing end if