hi,
i try , sum only hours ,no minuts

 thisform.TotalTxt.Value=thisform.AddTime(thisform.AddTime(thisform.AddTime(thisform.AddTime(thisform.Text1.Value, thisform.Text2.Value), thisform.Text3.Value),thisform.Text5.Value),thisform.Text6.Value)

m.qasem
>Of cource it will return space. It is my mistake. Recover function to previous version., There is no need to change it and use it:
>

>thisform.TotalTxt.Value
>=thisform.AddTime(thisform.AddTime(thisform.Text1.Value, thisform.Text2.Value), thisform.Text3.Value)
>