Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Try
            Dim d1, d2 As Date
            'proviamo a convertire il testo in data
            d1 = CDate(TextBox1.Text)
            'se non ha dato errore l'esecuzione prosegue come prima
            d2 = Now
            If DateDiff(DateInterval.Day, d1, d2) > 0 Then
                TextBox1.ForeColor = Color.Red
            Else
                TextBox1.ForeColor = Color.Green
            End If
        Catch ex As Exception
            'se invece la conversione non ha esito positivo (magari perchè l'utente ha sbagliato ad inserire la data ed il valore da lui inserito non è trasformabile in un oggetto "Date"
            TextBox1.ForeColor = Color.Blue 'per indicare all'utente che non ha inserito un valore valido, gli mettiamo la scritta in BLU
        End Try
    End Sub