*Cut click
>if !empty(thisform.Tag)
> with eval(thisform.Tag)
>   _cliptext = .Tag
>   .Value = strtran(.Value, .Tag, '')
> endwith
>endif
>
>*Paste click
>if !empty(thisform.Tag)
> with eval(thisform.Tag)
>   .Value = _cliptext
> endwith
>endif