help with creating function

[ExcalibursZone]

This is accomplished in much the same way:

Public Function ChkSel(Control as Object, pForm as Form) As Boolean
    Dim i as Integer

    For i = 0 to pForm.Control.Count - 1
       If pForm.Control(i).Value = True Then _
           ChkSel = True
    Next i
End Function

You call the function thusly:

If Not(ChkSel(Control,Me)) Then ...

Hope this helps you out.