[أبو عمر]

من غير مسميات لاني لا اعلم كيف يعمل برنامجك لكن بصورة عامة
dim x as integer:x = year(date)+60
Text1.Text= x & "/" & month(now) & "/" & day(now)