>You are right of course, But at least I learn something: Never put 2 WAIT WINDOWS when testing.

Borislav,
not necessary:

oForm = CREATEOBJECT("Form1")
oForm.Show(1)


**************************************************
*-- Form:         form1 (d:\all_zapl\test.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   06/16/05 09:28:09 AM
*
DEFINE CLASS form1 AS form


	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT text1 AS textbox WITH ;
		Height = 23, ;
		Left = 62, ;
		Top = 46, ;
		Width = 100, ;
		Name = "Text1"



	PROCEDURE Init
		ON KEY LABEL RIGHTMOUSE WAIT WINDOW "Right Mouse ON CLICK" noclear nowait
	ENDPROC


	PROCEDURE text1.RightClick
		WAIT WINDOW "Text1 RichtClick()"
	ENDPROC


ENDDEFINE
*
*-- EndDefine: form1
**************************************************

Why?
WAIT WINDOW "Right Mouse ON CLICK" consume the RightClick event.
WAIT WINDOW "Right Mouse ON CLICK" noclear nowait don't consume it.