[sooriaty03]

تفضل ياغالي هذا الكود كاملا

كود :

If Val(DateTime.Now.Subtract(CDate(TextBox1.Text)).ToString("dd")) > 353 AndAlso CDate(TextBox1.Text) < DateTime.Now Then
            TextBox1.BackColor = Color.Red
        Else
            TextBox1.BackColor = Color.White
        End If