>hi,
>i try to run your code ,
>but i get error message age.vcx dose not exist.
>i use vfp7.
>thanks.
>
Mohammed, first convert Age.prg in Age.vcx
You need to have Age.vcx in default folder.
Then You can Run code below.

>>>How Age Calculator apply to text box. Downloade id (25738)
>>>if text box value is :11/04/1960 and getting from today date
>>
>>Khubaib,
>>IF You have convert age.prg to vcx try this code:
>>

>>PUBLIC oform1
>>SET CENTURY ON
>>oform1=NEWOBJECT("myform")
>>oform1.Show
>>RETURN
>>
>>DEFINE CLASS myform AS form
>>	Top = 16
>>	Left = 62
>>	Height = 250
>>	Width = 282
>>	DoCreate = .T.
>>	Caption = "Form"
>>	ox = .F.
>>
>>	ADD OBJECT text1 AS textbox WITH ;
>>		Alignment = 3, ;
>>		Height = 23, ;
>>		Left = 104, ;
>>		TabIndex = 1, ;
>>		Top = 28, ;
>>		Width = 103, ;
>>		Name = "Text1"
>>
>>	ADD OBJECT label1 AS label WITH ;
>>		Alignment = 1, ;
>>		Caption = "FROM:", ;
>>		Height = 19, ;
>>		Left = 40, ;
>>		Top = 30, ;
>>		Width = 49, ;
>>		TabIndex = 4, ;
>>		Name = "Label1"
>>
>>	ADD OBJECT label2 AS label WITH ;
>>		Alignment = 1, ;
>>		Caption = "TO:", ;
>>		Height = 19, ;
>>		Left = 40, ;
>>		Top = 68, ;
>>		Width = 49, ;
>>		TabIndex = 5, ;
>>		Name = "Label2"
>>
>>	ADD OBJECT text2 AS textbox WITH ;
>>		Alignment = 3, ;
>>		Height = 23, ;
>>		Left = 104, ;
>>		TabIndex = 2, ;
>>		Top = 68, ;
>>		Width = 103, ;
>>		Name = "Text2"
>>
>>	ADD OBJECT command1 AS commandbutton WITH ;
>>		Top = 183, ;
>>		Left = 97, ;
>>		Height = 38, ;
>>		Width = 110, ;
>>		Caption = "START", ;
>>		TabIndex = 3, ;
>>		Name = "Command1"
>>
>>	ADD OBJECT year AS textbox WITH ;
>>		Enabled = .F., ;
>>		Height = 23, ;
>>		Left = 57, ;
>>		TabIndex = 6, ;
>>		Top = 130, ;
>>		Width = 53, ;
>>		Name = "Year"
>>
>>	ADD OBJECT month AS textbox WITH ;
>>		Enabled = .F., ;
>>		Height = 23, ;
>>		Left = 123, ;
>>		TabIndex = 7, ;
>>		Top = 130, ;
>>		Width = 53, ;
>>		Name = "month"
>>
>>	ADD OBJECT day AS textbox WITH ;
>>		Enabled = .F., ;
>>		Height = 23, ;
>>		Left = 186, ;
>>		TabIndex = 8, ;
>>		Top = 130, ;
>>		Width = 53, ;
>>		Name = "day"
>>
>>	ADD OBJECT label3 AS label WITH ;
>>		Caption = "Year", ;
>>		Height = 17, ;
>>		Left = 57, ;
>>		Top = 102, ;
>>		Width = 47, ;
>>		TabIndex = 9, ;
>>		Name = "Label3"
>>
>>	ADD OBJECT label4 AS label WITH ;
>>		Caption = "Month", ;
>>		Height = 17, ;
>>		Left = 125, ;
>>		Top = 102, ;
>>		Width = 47, ;
>>		TabIndex = 10, ;
>>		Name = "Label4"
>>
>>	ADD OBJECT label5 AS label WITH ;
>>		Caption = "Day", ;
>>		Height = 17, ;
>>		Left = 190, ;
>>		Top = 102, ;
>>		Width = 47, ;
>>		TabIndex = 11, ;
>>		Name = "Label5"
>>
>>	PROCEDURE Init
>>		ThisForm.ox = NEWOBJECT( "AgeCalculator", "age.vcx")
>>		ThisForm.Text1.Value = DATE(1956,09,23)
>>		ThisForm.Text2.Value = DATE()
>>	ENDPROC
>>
>>	PROCEDURE command1.Click
>>		ThisForm.ox.CalculateAge( ThisForm.Text1.Value,ThisForm.Text2.Value)
>>		ThisForm.Year.Value  = ThisForm.ox.nYears
>>		ThisForm.Month.Value = ThisForm.ox.nMonths
>>		ThisForm.Day.Value   = ThisForm.ox.nDays
>>	ENDPROC
>>ENDDEFINE
>>