[silverlight]

اولا دعنا نحسب الفارق بين وقت التلقيح و الوقت الحالي
وقت التلقيح الجديد معلوم لديك بالفعل و هو متغير عبارة عن Next1 و اسمح لي أن أطلق عليه vaccinationDate

وهذا سوف يمثل الفارق في الايام و هو الذي انت في حاجة ان يظهر ف التكست بوكس

كود :

Dim dateDiff As Integer = vaccinationDate.Subtract(DateTime.Now).TotalDays

لنضع القيمة الناتجة في التكست بوكس

كود :

 TextBox2.text = dateDiff

الأن لنتأكد من شرط التهرب من التطعيم و بناء علي ذلك نغير لون الخط في التكست بوكس

كود :

Dim clr As Color = TextBox2.ForeColor
       If dateDiff < 0 Then
           TextBox2.ForeColor = Color.Red
       End If
       TextBox2.ForeColor = clr

تقريبا ده كل الكود لكن المشكلة انك كنت محتاجة بطريقتك و بأسلوبك أنت