** ani adalah nama obyek teks nya dan ini bebas...kbetulan saya pake "ani" 

_screen.AddObject("ani","textbox" ) 
_screen.ani.Value=WEEK(date()) 
_screen.ani.left=20 
_screen.ani.top=20 
_screen.ani.Visible=.t.