Fabio,

The code below produces the anomaly that I see. It seems to happen when a child form of a top-level form is modal:

PUBLIC oform1, oform2

oform1=NEWOBJECT("form1")

oform1.Show
RETURN

DEFINE CLASS form1 AS form

	ShowWindow = 2	&& As top-level form
	WindowType = 0	&& Modeless

	AutoCenter = .T.
	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"
	height = 480
	width = 640

	PROCEDURE Click
		WAIT WINDOW ;
			"Form1: ShowWindow = " + ;
			ALLTRIM(STR(this.ShowWindow)) + ;
			" WindowType = " + ;
			ALLTRIM(STR(this.WindowType)) TIMEOUT 3

		oform2=NEWOBJECT("form2")
		oform2.Show
		THISFORM.Release()
	ENDPROC

ENDDEFINE

DEFINE CLASS form2 AS form

	ShowWindow = 1	&& In top-level form
	WindowType = 1	&& Modal

	AutoCenter = .T.
	DoCreate = .T.
	Caption = "Form2"
	Name = "Form2"
	height = 480*.5
	width = 600*.5

	PROCEDURE Click
		WAIT WINDOW ;
			"Form2: ShowWindow = " + ;
			ALLTRIM(STR(this.ShowWindow)) + ;
			" WindowType = " + ;
			ALLTRIM(STR(this.WindowType)) TIMEOUT 3

		THISFORM.Release()
	ENDPROC

ENDDEFINE

What do you think?

Thanks!