[VB6] Trasferire funzione ad un modulo

[oregon]

La funzione potrebbe essere (ho anche cambiato nome ...)

Public Function Centra(frm As Form)
    frm.Left = (Screen.Width - frm.Width) / 2
    frm.Top = (Screen.Height - frm.Height) / 4
End Function

e il suo uso puo' essere

Centra Me