public &pcCryptorObject.
local lcDataFolder, lnStatus, lcPassword, lnMethod

*-- DECLARE DLL statements for reading/writing to private INI files
DECLARE INTEGER GetPrivateProfileString IN Win32API ;
String cSection, String cKey, String cDefault, String @cBuffer, ;
Integer nBufferSize, String cINIFile

lcDataFolder = space(255)
lcIniFile = CurDir() + "CW2K.Ini"
lnBytes = GetPrivateProfileString(;
"System Defaults","DataFolder","",@lcDataFolder,;
len(lcDataFolder),lcIniFile)
lcDataFolder = addbs(curdir()+lcDataFolder)


*---- This is where I put the WAIT WINDOW TIMEOUT -----*
*-- I only need the delay for VFP 8, not VFP 6
Wait Window “Creating Encryption Monitor” TIMEOUT 5
&pcCryptorObject. = CREATEOBJECT("XitechCryptor.Cryptor")
...