* pagMichelle.prg >define pagMichelle as Page > RecordNo = 0 >enddefine > >But to build the pageframe you can't just set the PageCount, you need to >AddObject each page: > >* pageframe.Init >set procedure to pagMichelle additive >for i = 1 to 10 > lcStr = "Page" + padl( i, '0', 2 ) > this.AddObject( lcStr, "pagMichelle" ) > with this.Pages[i] > .Caption = trips.cName > .RecordNo = recno() > endwith > skip 1 >endfor>