Trial Program in VB6 with Date expiration

Asslam o Allikum

Hello all my Forum friends

I tried many time to make a trial program in VB6 but always fails to 100% work, when the system date is changed, it does not work properly.

Please help me find out the solution
Thanks in Advance

Aftab Ansari