If My.Settings.Setting = "" Then
My.Settings.Setting = CheckedListBox1.Items.Count.ToString()
My.Settings.Save()
Else
Dim Number1 As Integer = CheckedListBox1.Items.Count.ToString()
Dim Number2 As Integer = My.Settings.Setting
Dim Number3 As Integer
Number3 = Number1 - Number2
MsgBox(Number3)
My.Settings.Setting = CheckedListBox1.Items.Count.ToString()
My.Settings.Save()
End If