تغییر تصویر با تغییر بازه تاریخ

[Milad_ATM]

سلام

If (Now() - Me.ExpiredDate <= 15 And Now() - Me.ExpiredDate >= 0) Then    Me.RedTag.Visible = True

ElseIf (Now() - Me.ExpiredDate > 15) And (Now() - Me.ExpiredDate <= 30) Then

Me.OrangeTag.Visible = True

Else

Me.GreenTag.Visible = True

End If

همونطور که در کد میبینید ،میخوام درصورتی که تاریخ زیر 15 باشه یک تصویر رو visible کنم حالت دوم بین 15 تا 30 یک تصویر دیگه و در غیر اینصورت تصویر سوم...
منتها در هر حالت فقط شرط سوم اجرا میشه
ممنون میشم راهنمایی کنید