Can anybody tell me what's wrong with this code? Or, can anybody suggest a workaround?

x=.T.
On Shutdown x=.F.

o=Createobject('MyClass')

Define Class MyClass As Custom
	Function Init
	Do While x
		? Datetime()
		=Inkey(1)
	EndDo
EndDefine

In either development time or run time, when we try to close the application, VFP crashes!

TIA