m_xxx(index as integer)

    dim i as integer

    for i = 0 to m_xxx.ubound    'CLEAR ALL CHECKS
        m_xxx(i).checked = False
    next

   m_xxx(index).checked = True   'CHECK THE NEW SELECTION
end sub

is m_xxx() an array of controls or a control-array? or an array of
a predefined type or class?

Pass the control array as 'Object'; pass on/off switches as a paramarray.
The sub could be:

Sub Setmenu(Menus As Object, paramarray Vals() as variant) {
    Dim i as integer
    for i=0 to ubound(vals)
        menus(i).checked = (vals(i)=true)
    next

Setmenu mnuTools, true, true, false, false...