filling combox box with same logic in 2 <> forms

How can I achieve this without duplicating the code.
I would like to pass as parameter the form but I'm not able to find the
solution.

for buildcombo(frmTotals)
and build combo(fmrPresence)

Thanks