I,m using a LostFocus Event of a TextBox to test to see if the data entry is valid. If it is not valid I pop up a MessageBox then setFocus back to the original TextBox. It's not working. The focus goes to where it would have gone had I not tried to capture it.

Seek AllTrim(ThisForm.txtTypeCode.Value)
If Not Found()
MessageBox("Invaild Entry")
ThisForm.txtTypeCode.SetFocus
Else
ThisForm.txtTypeDesc.Value=Type2.Desc
EndIf
Thisform.Refresh

Any help?

Thanks