Proba esto:
1) StrictDateEntry = 0 && Libre
2) Format = "R"
3) InputMask = "99/99/9999"
y En el Init del TextBox,
4) This.Width = (TXTWIDTH(Replicate("9",10), This.FontName, This.FontSize) * ;
FONTMETRIC(6, This.FontName, This.FontSize)) + ;
(This.Margin * 4)
Saludos,
Lic. Esteban Bruno
Gerente de Sistemas
TASSO S.R.L.