Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
        Dim d1, d2 As Date
        d1 = DateTimePicker1.Value
        d2 = Now
        If DateDiff(DateInterval.Day, d1, d2) > 0 Then
            PictureBox1.BackColor = Color.Red
        Else
            PictureBox1.BackColor = Color.Green
        End If
    End Sub