I am running a PRG that generaltes errors from 1 to 2000 created by Doug Hennig from FoxTalk in MSDN Online which puts the error # and message in a table. After record 130 which contains error number 1115 I get this message from VFP "Too many windows open". VFP is the only open window. Here is the code

create table Errors (ErrorNum I, Message M)
index on ErrorNum tag ErrorNum
on error do SaveErr with error(), message()
for lnI = 1 to 3000
error lnI
next lnI
on error
use

procedure SaveErr
lparameters tnError, tcMessage
if tnError <> 1941 && ignore "invalid error code" errors
insert into Errors values (tnError, tcMessage)
endif tnError <> 1941
return

Thanks