>Hi Robert --
>
>The following code expands on the premise a bit....this also filters bad time values. I've had fun with this thread. ;-)
>
>KeyPress event code:
>
>

>LPARAMETERS nKeyCode, nShiftAltCtrl
>LOCAL lNoDef
>lNoDef=.F.
>DO CASE
>CASE THIS.SelStart=0
>   IF !(CHR(nKeyCode) $ "01")
>      lNoDef=.T.
>   ENDIF
>CASE THIS.SelStart=1 OR THIS.SelStart=4
>   IF !(CHR(nKeyCode) $ "0123456789")
>      lNoDef=.T.
>   ENDIF
>CASE THIS.SelStart=3
>   IF !(CHR(nKeyCode) $ "012345")
>      lNoDef=.T.
>   ENDIF
>CASE THIS.SelStart=6
>   IF nKeyCode # 65 AND nKeyCode # 80
>      lNoDef=.T.
>   ENDIF
>ENDCASE
>IF lNoDef
>   NODEFAULT
>ENDIF
>

-------
Hi John and I can not thank you enough for helping me with this.
I am going to try it and i will let you know how it turns out..
thanks again.. :)