Do case Case cbotype.value = 'Character' ThisForm.txtMyText.Value = '' Case cbotype.value = 'Numeric' ThisForm.txtMyText.Value = 0 Case cbotype.value = 'Date' ThisForm.txtMyText.Value = {} Case cbotype.value = 'Logical' ThisForm.txtMyText.Value = .t. EndCase>2) The second idea is not put textbox at all on the form, instead create several classes (or borrow it from here Files section) like txtNumbers, txtDate, txtDateTime, etc. and then add object in run-time depending on which field type was selected from the combobox to replace.