>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"
this.myTextBox.Visible = .t.
this.Sparse = .F.
> ENDIF
>ENDPROC

Cetin