>lnRandom = MyRandom(382622) >? "Random", lnRandom.RandomNumber >? "Seed", lnRandom.RandomNumber - lnRandom.GetBack > > >FUNCTION MyRandom(lnSeed) > > LOCAL loEmpty > loEmpty = CREATEOBJECT("Empty") > ADDPROPERTY(loEmpty,"RandomNumber",0) > ADDPROPERTY(loEmpty,"GetBack",0) > loEmpty.GetBack = (DATETIME()-datetime(1900,1,1,0,0,0)) > loEmpty.RandomNumber = m.lnSeed + loEmpty.GetBack > >RETURN loEmpty >Thank you very much. This works.