Réponse acceptée !
Voici un classe que j'utilise, roule ce qui suit dans un prg

o = CREATEOBJECT("form")
o.addobject("txtnumber2","txtnumber2")
o.txtnumber2.visible = .t.
o.show(1)
DEFINE CLASS txtnumber2 AS textbox
    Alignment = 3
    Value = 0
    InputMask = "9,999,999.99"
    SelectOnEntry = .T.
    Name = "txtnumber2"
    csofar = .F.
    ndecimal = .F.


    PROCEDURE setvalue
        THIS.Value = VAL(THIS.cSoFar)
        THIS.Refresh()
    ENDPROC


    PROCEDURE inputmask_assign
        LPARAMETERS vNewVal
        wait window "m.vNewVal" +m.vNewVal
        wait window "this.inputmask" + this.inputmask
        THIS.InputMask = m.vNewVal
        THIS.SetValue()
    ENDPROC


    PROCEDURE setdecimal
    ENDPROC


    PROCEDURE LostFocus
        rele llsd,lld
        set decimals to
    ENDPROC


    PROCEDURE KeyPress
        Lparameters nKeyCode, nShiftAltCtrl

        Do case
        Case (nKeyCode=46 or (nKeyCode>=48 and nKeyCode<=57)) and len(this.cSoFar)< llsd + 1
            Nodefault
            This.cSoFar=this.cSoFar+chr(nKeyCode)
            This.setvalue
        If len(this.csofar)=llsd
            ?? chr(7)
        Endi
        Case nKeyCode=46 and len(this.cSoFar)= llsd
            Nodefault
            This.cSoFar=this.cSoFar+chr(nKeyCode)
            This.setvalue
        Case nKeyCode>=48 and nKeyCode<=57 and len(this.cSoFar)<lld and len(this.cSoFar)>llsd
            Nodefault
            This.cSoFar=this.cSoFar+chr(nKeyCode)
            This.setvalue
            If len(this.cSoFar)=lld
                ?? chr(7)
            Endi
        Case nKeyCode=127 and len(this.cSoFar)#1
            Nodefault
            This.cSoFar=substr(this.cSoFar,1,(len(this.cSoFar)-1))
            This.setvalue
        Case nKeyCode=7
                Nodefault
            This.cSoFar="0"
            This.setvalue
        Case len(this.cSoFar)=lld
            nodefault
            ?? chr(7)
        Case nKeyCode = 43
            Nodefault
            If LEFT(THIS.cSoFar,1) = "-"
                This.cSoFar = SUBSTR(THIS.cSoFar,2)
                This.SetValue()
            Endif
        Case nKeyCode = 45
        * - key
            Nodefault
            If LEFT(THIS.cSoFar,1) <> "-"
                This.cSoFar = "-" + THIS.cSoFar
                This.SetValue()
            Endif
        Case nKeyCode=9 or nKeyCode=15 or nKeyCode=13 or nKeyCode=24 or nKeyCode=5

        Otherwise
            Nodefault
        Endc
    ENDPROC


    PROCEDURE GotFocus
        DoDefault()
        public llsd,lld
        This.csofar="0"


        cnt=1
        lcommas=0
        do while cnt<len(this.inputmask)
        if subs(this.inputmask,cnt,1)=","
        lcommas=lcommas+1
        endi
        cnt=cnt+1
        endd
        if lcommas=2
        llsd=rat(".",this.inputmask)-2
        lld=len(this.inputmask)-1
        endi
        if lcommas=1
        llsd=rat(".",this.inputmask)-1
        lld=len(this.inputmask)
        endi
        if lcommas=0
        llsd=rat(".",this.inputmask)
        lld=len(this.inputmask)+1
        endi


        ldec=len(this.inputmask)-rat(".",this.inputmask)
        set decimals to ldec

    ENDPROC


ENDDEFINE

Mike Gagnon