ROFL
I have my doubts before posting it.


>How dare you to post not fully tested code! People should be able to use it right away not waste there time on adapting and testing it.
>
>>
>>
>>Put this in KeyPress Event of the TextBox:
>>
>>

>>LPARAMETERS nKeyCode, nShiftAltCtrl
>>
>>IF nKeyCode == 46 && [.]
>>   LOCAL nStart
>>   nStart = this.SelStart 
>>   NODEFAULT 
>>   DO CASE
>>      CASE nStart < 5    
>>           this.Value     = PADL(ALLTRIM(LEFT(this.Value,3)),3)+SUBSTR(this.Value,4)
>>           this.SelStart  = 4
>>           this.SelLength = 3
>>
>>      CASE nStart < 9    
>>           this.Value     = LEFT(this.Value,4)+PADL(ALLTRIM(SUBSTR(this.Value,5,3)),3)+SUBSTR(this.Value,8)
>>           this.SelStart  = 8
>>           this.SelLength = 3
>>
>>      CASE nStart < 13    
>>           this.Value     = LEFT(this.Value,8)+PADL(ALLTRIM(SUBSTR(this.Value,9,3)),3)+SUBSTR(this.Value,12)
>>           this.SelStart  = 12
>>           this.SelLength = 3
>>   ENDCASE
>>ENDIF
>>

>>
>>NOT WELL TESTED!!!!