WITH Thisform .Lockscreen = .T. .Textbox.Value = Thisform.combo.displayvalue .Combo.Visible = .F. .Textbox.Visible = .T. .Lockscreen = .F. ENDWITH