>Tu peux répondre en anglais.
Merci :)

well, that's funny
i just tried the following and it works perfectly :
(and as u can see i added an additional level of sub-classing)

PUBLIC ootform1

SET CLASSLIB TO d:\vfptmp\ontime\class\otclasses.vcx ADDITIVE
SET CLASSLIB TO d:\vfptmp\test.vcx ADDITIVE

ootform1=CREATEOBJECT("otform1")
ootform1.Show
RETURN

DEFINE CLASS otform1 AS otform

	DoCreate = .T.
	Name = "Otform1"

	ADD OBJECT texta1 AS texta WITH ;
		Height = 36, ;
		Left = 24, ;
		Top = 12, ;
		Width = 156, ;
		Name = "But11"

	ADD OBJECT texte1 AS texte WITH ;
		Height = 36, ;
		Left = 24, ;
		Top = 72, ;
		Width = 156, ;
		Name = "Texte1"
ENDDEFINE

DEFINE CLASS texte AS textbox

	Height = 23
	Width = 100
	Name = "texte"

	PROCEDURE DblClick
		wait window "double clique"
	ENDPROC

	PROCEDURE Click
		wait window "clique"
	ENDPROC

ENDDEFINE

DEFINE CLASS texta AS texte

	Name = "texta"

ENDDEFINE