>>Your code doesn´t create a program./interactivechange for your textbox control !
>
>Yes I do.

As I sad, your code didn´t create a programmactchange/interativechange for your textbox..

>
>As you see is the prg do by class browser
>

You didn´t create a class for your Textbox.. If you give a little bit attention on the code bellow you will see..

>I try your program and It dont work
>
>you try it?

Of course not.. I begin your pardon. But, Here is (with a few changes) the last release (properly tested in agreement of your demand):

PUBLIC otabform1

*SET CLASSLIB TO f:\d\ds\comun\cls\tabclass.vcx ADDITIVE
* Sorry, I dont have (over here) this library
*
CREATE TABLE TITAS26 (ctitas c(2), titas c(40))
INSERT INTO TITAS26 (CTITAS, TITAS) VALUES ("c1","DESC C1")
INSERT INTO TITAS26 (CTITAS, TITAS) VALUES ("c2","DESC C2")
INSERT INTO TITAS26 (CTITAS, TITAS) VALUES ("c3","DESC C3")
GO TOP

otabform1=NEWOBJECT("tabform1")
otabform1.Show

RETURN
**************************************************
*-- Form:         tabform1 (c:\form1.scx)
*-- ParentClass:
*-- BaseClass:    form
*-- Marca de hora:   02/26/03 05:11:14 PM
*
DEFINE CLASS tabform1 AS form
	DoCreate = .T.
	Name = "Tabform1"
	ADD OBJECT txtctitas AS textboxX WITH ;
		ControlSource = "titas26.ctitas", ;
		Height = 23, ;
		Left = 213, ;
		MaxLength = 2, ;
		TabIndex = 2, ;
		Top = 99, ;
		Width = 38, ;
		Name = "txtCtitas"
	ADD OBJECT txttitas AS textboxX WITH ;
		ControlSource = "titas26.titas", ;
		Height = 23, ;
		Left = 211, ;
		MaxLength = 40, ;
		TabIndex = 4, ;
		Top = 140, ;
		Width = 288, ;
		Name = "txtTitas"
ENDDEFINE
DEFINE CLASS textboxX AS textbox
		Comment = ""
	PROCEDURE ProgrammaticChange
		WAIT WINDOW "HOLA"
	ENDPROC
	PROCEDURE InteractiveChange
		WAIT WINDOW "HOLA"
	ENDPROC
	PROCEDURE Click
		SELECT TITAS26
		SKIP
		THISFORM.Refresh()
	ENDPROC
ENDDEFINE

HTH