The oform object variable in your tmess procedure is local. When the read events statement is hit, oform has been already released due to the procedure end. This is why its only flashing.

you can create the object on the read events procedure level

do tmess
oform=create....
read events

or in tmess create the variable public

public oform
oform=create....

this will prohibit the object oform to be released before read events.

Giesbert