If OpenCryptRandom() MyRandom = CryptRandom(#MAXLONG) CloseCryptRandom() EndIf