>>

>>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

The snippet above ain't big enough for both of Release and =Null.