[VB6] Trasferire funzione ad un modulo

[vaitrafra]

Public sub CentraForm(byref Frm as form) 
        
        frm.top = (screen.height - frm.height) /2
        frm.left = (screen.width - frm.width) /2

end sub