[HELP] How do u save settings and check all checkboxes at once?

Public Sub Checkbox1_Checked

Module SaveSets
    Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As String, ByVal lsString As String, ByVal lplFilename As String) As Int32
    Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, ByVal lpFileName As String) As Int32
    Public Check As String

    Public Function Load(ByVal Section As String, ByVal Key As String) As String
        Dim Result As Int32
        Dim strFileName
        Dim strResult As String = Space(300)
        strFileName = System.AppDomain.CurrentDomain.BaseDirectory & "\settings.ini"
        Result = GetPrivateProfileString(Section, Key, strFileName, strResult, Len(strResult), strFileName)
        Check = System.AppDomain.CurrentDomain.BaseDirectory & "\sets.ini"
        Load = Trim(strResult)
    End Function

    Public Function Save(ByVal Section As String, ByVal Key As String, ByVal Content As String)
        Dim Result As Int32
        Dim strFileName
        strFileName = System.AppDomain.CurrentDomain.BaseDirectory & "\settings.ini"
        Result = WritePrivateProfileString(Section, Key, Content, strFileName)
    End Function


End Module

http://msdn.microsof*****m/en-us/library/a65txexh.aspx