Hi,

>Read Events and Clear Events are the key points here. Without them it would not work this way.

Not true...

PRIVATE myVar
myVar = 4
oForm = CreateObject("MyForm")
oForm.Show()

DEFINE CLASS MyForm as Form
PROC INIT()
WAIT WINDOW myVar
ENDPROC
ENDDEFINE

Regards
Viv