Dear Experts

There are more than 100 Forms in my Project.
I want to use following codes in the INIT event of some 50 Forms.
I want to ask:
Should I use CLASS or some Procedure and how?

Please help

select u_right
locate for usno=m.usno and uname= juststem(sys(1271,thisform))
if found()
	allow_rights= rights
	if allow_rights=0
		messagebox("Not Allowed",0+16+512,"No Permission")
		return.f.
	endif
else
	messagebox("Not Allowed",0+16+512,"No Permission")
	return.f.
endif