OK here it is. This code is in a form class called 'mainform', the basic start point for all my forms.

Top_assign has:

LPARAMETERS vNewVal
IF vnewval < 0
vNewval = 0
ENDIF
THIS.TOP = m.vNewVal

Top_access has:

*To do: Modify this routine for the Access method
RETURN THIS.Top

Any help?