>

>Function ValidEmail
>   Lparameters lcMail
>   Local ox, llReturn
>   If Pcount() > 0 And Vartype(lcMail) = [C]
>      ox = Createobject([VBScript.RegExp])
>      ox.Pattern = "^([0-9a-zA-Z]+[-._+&])*[0-9a-zA-Z]+@([-0-9a-zA-Z]+[.])+[a-zA-Z]{2,6}$"
>      ox.IgnoreCase = .T.
>      ox.Global = .F.
>      llReturn = ox.Test(lcMail)
>      Release ox
>      ox = .Null.
>   Endif
>Return llReturn
>

>

Dangerous code. If ox happens to be a private variable on entry of the function, it will set its value to null