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

[Zoom]

Credits to who ever wrote the module in vb6 and i converted to vb.net. I left result in for Save function in case some one wants to do error checking to see if it was saved but i never returned it. So thats up to you guys.
Module SaveSets

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

And for more info on settings.

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

Really nice man! Ty