>I count trailing spaces in the KeyPress method, then adjust the string in the valid. Here it is, w/a bit of initialization, etc. in other places:

The combination of Copy and Paste and selecting multiple characters and hitting space or enter or backspace ro blah bah blah... this is a prety tricky way to do it.

How woudl this work?

oForm = create('edittest')
oForm.Show(1)
DEFINE CLASS edittest AS form
	Top = 0
	Left = 0
	Height = 85
	Width = 182
	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"

	ADD OBJECT edit1 AS editbox WITH ;
		Height = 24, ;
		Left = 12, ;
		Top = 12, ;
		Width = 156, ;
		Name = "Edit1"

	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 48, ;
		Left = 48, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "Command1", ;
		Name = "Command1"

	PROCEDURE command1.Click
		wait window thisform.edit1.value
	ENDPROC
ENDDEFINE