Tamam. Derdimi ing. anlatmak biraz daha zor geliyor. Ama deniyorum:

I tried that with look at your examples. But that don't work. I think that changes currentcontrol only when user don't put any control with visual design but... What's wrong?

DEFINE CLASS xcolumn as Column

PROCEDURE Init
SET CLASSLIB TO deneme addi
IF this.CurrentControl="Text1"
this.AddObject("mytextbox","_mytextbox")
this.CurrentControl="mytextbox"
ENDIF
ENDPROC