How to reorder pages in a pageframe at runtime? The below obviously will not work...

Any ideas?

DIMENSION pagename(5,2)
pagename(1,1) = "appscrn1.spr" && i.e. 'appscrn1' is a pagename on the form
pagename(2,1) = "appscrn2.spr"
pagename(3,1) = "appscrn3.spr"
pagename(4,1) = "appscrn4.spr"
pagename(5,1) = "appscrn5.spr"
FOR i = 1 TO ALEN(pagename,1)
   pagename(i,2) = i  && the array row is the pageorder value
ENDFOR

DODEFAULT()
i = 1
WITH THIS.PageFrame1
  i = 1
  lnitem = 0
  DO WHILE i <= .pagecount
    lnitem = ASCAN(pagename,.objects(i).name)
    IF lnitem = 0
      	.REMOVEOBJECT(.objects(i).name)
    ELSE
      *--There already is a page 3 so the below will not work if
      *--linitem is 3
      *--The page whose pageorder value is 3 now will be changed
      *--to another value but we haven't gotten there yet
      .objects(i).pageorder = lnitem  && error - this pageorder value is already used of course
      i = i + 1
    ENDIF
  ENDDO
ENDWITH
RETURN .T.

TIA