Set Century to 19 rollover 50 ox = CreateObject("myForm") ox.Show(1) Define Class myForm as Form Add Object txt As Textbox with ; Value = {^2005.01.03}, ; Century = 0 Add Object txt2 As Textbox with ; top = 50 Enddefine