For i = 0 To fchat.check.Count -1
Call SaveSetting(App.EXEName, "CheckBox", "Value", fchat.check(i).Value)
Next i

For i = 0 To fchat.check.Count -1
Call SaveSetting(App.EXEName, "CheckBox", "Value" & i, fchat.check(i).Value)
Next i

Private Sub Form_Load()
    Call Cargar
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    Call Grabar
End Sub
 
Sub Grabar()
    Dim i As Integer
    For i = 0 To Check1.Count - 1
        Call SaveSetting(App.EXEName, "CheckBox", "Check" & i, Check1(i).Value)
    Next
End Sub
 
Sub Cargar()
    On Error Resume Next
    Dim i As Integer
    For i = 0 To Check1.Count - 1
        Check1(i).Value = GetSetting(App.EXEName, "CheckBox", "Check" & i)
    Next
End Sub