Ho dato un'occhiata e ho capito anche il senso.
L'unico problema è dato dalla seconda riga di questa funzione, non riconosce fx!
Sub CenterForm(f As Form)
Dim ps As Screen = fx.PrimaryScreen
f.WindowLeft = (ps.MaxX - ps.MinX) / 2 - f.Width / 2
f.WindowTop = (ps.MaxY - ps.MinY) / 2 - f.Height / 2
End Sub
In pratica non permette di valorizzare ps con fx.PrimaryScreen