Gerard,
Try this code in the Click of the PageFrame:
LOCAL nPage, nColor, lBold
FOR nPage = 1 TO This.PageCount
IF This.ActivePage = nPage
nColor = 255 && Red
lBold = .T.
ELSE
nColor = 0 && Black
lBold = .F.
ENDIF
This.Pages[nPage].ForeColor = nColor
This.Pages[nPage].FontBold = lBold
ENDFOR
Everything makes sense in someone's mind
public class SystemCrasher :ICrashable
In addition, an integer field is not for irrational people