I have very simple way to do this with just one line of code. Place the following line in the proper position, often the first line in LostFocus event (assuming the cancel control is named CancelControl).
If activeControl is CancelControl then exit Sub
This tip is also suitable for VB5.