private nPrintOrder && Important to be private, so all bellow programs will see nPrintOrder=0 it. If it's in form, you can make it to be a form property instead replace PrintOrder with UpdatePrintOrider() for ... function UpdatePrintOrder nPrintOrder=m.nPrintOrder+1 return m.nPrintOrder