>FOR i = 1 TO THIS.PageCount
>   IF THIS.Pages(i).Pageorder # THIS.ActivePage
>      THIS.Pages(i).Refresh()
>   ENDIF
>ENDFOR

I did about the same thing, but I haven't needed to refresh pages that aren't on top. I made a GetActivePage() in the pgfbase class. Then whenever I need a reference to the currently active page from the pageframe's point of view, it is available.
* GetActivePage()
* Return the Active page Object Reference.
* The ActivePage property is the number of the active pages,
* but, when the pageorder is rearranged, is isn't the correct
* index for the Pages collection.

LOCAL ActivePage, oPage
IF This.ActivePage = 0
   ActivePage = .NULL.
ELSE
   FOR EACH oPage IN This.Pages
      IF This.ActivePage = m.oPage.PageOrder
         ActivePage = m.oPage
         EXIT
      ENDIF
   ENDFOR
ENDIF
RETURN m.ActivePage