[silverlight]

بدلا من TextBox2 الذي يظهر به زمن التسرب من التطعيم أنصحك أن تستخدم Label بدلا منه لأنه مجرد كونترول لإظهار البيانات و ليس للكتابة

قمت بتعديل الكود قليلا في الحدث التالي و ان كنت ترغب ان تفعل نفسي الشئ في بقية المشروع يمكنك استخدام نفس الفكرة

كود :

   Private Sub Btnnext_Click(sender As Object, e As EventArgs) Handles Btnnext.Click
       cm.Position += 1
       showpostion()
       'هذا الكود الاظافة والمقارنه لجرعة واحدة فقط وهي جرعة الصفر
       'Dim strDate As Date
       'Dim strate As Date
       'Dim next1 As Date
       'next1 = DtpBCG.Value
       'Me.Dtpnext1.Value = next1.AddMonths(2)
       'strate = Dtpnext1.Value
       'strDate = Today

       Me.Label33.Text = ""
       Dim vDate As DateTime = DtpBCG.Value
       Dim nDate As DateTime = DateTime.Now
       Dim clr As Color = CType(Label33.ForeColor, Color)
       Label33.ForeColor = clr
       Me.Label33.Text = CStr(CInt(vDate.Subtract(nDate).TotalDays))
       Dim labelColor As Color = If((vDate.Subtract(nDate).TotalDays < 0), Color.Red, clr)
       Label33.ForeColor = labelColor

   End Sub