Dear Experts

To show any error in my exe I use following error routine.

ON ERROR DO ERRHAND WITH ;
	ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( )

DO bism1
READ EVENTS

PROCEDURE ERRHAND
PARAMETER MERROR, Mess, MESS1, MPROG, MLINENO
MESSAGEBOX('Error number: ' + Ltrim(Str(MERROR)) + Chr(13) + ;
	'ERROR MESSAGE: ' + Mess + Chr(13) + ;
	'LINE OF CODE WITH ERROR: ' + MESS1 + Chr(13) + ;
	'LINE NUMBER OF ERROR: ' + Ltrim(Str(MLINENO)) + Chr(13) + ;
	'PROGRAM WITH ERROR: ' + MPROG, ;
	48, 'Ginning Accounting System')

When some error occurs it shows messagebox such as

Error number:1924
Error message: Forms is not an object
Line of code with:
Line number of error:0
Program with error: Quit

The problem is it shows following lines empty

Line of code with:
Line number of error:0

I want to locate the line number on which error occures
Please modify my codes or suggest another error handling routine.

Thanks in advance