This isn't a hard thing to do, firstly you need to know how are you gonna determine the expire date then suppose on the last ten days lest you want to place the value of progress bar to Value 10 so as for each new day you minus a certain value from the progress bar value if you were working or counting with 10 from the beginning then you can then still minus 10 for each new day to 0 then as soon as the count reach 0 perform your expiration activities.
But from my understanding it won't be the value 10 if your app is a 30 days trial, you need to calculate that because the progressbar is 100 so you need to get a number that can fit with 30 then it will be much easier to minus that number for each new day.
Show us what you have done and we can help you in your problem
Private Sub InstalledFinished()
Private Sub CheckTrailPeriod()
Dim DateAndTime As Date = IO.File.ReadAllText("C:\Path\Path..\ProgramInstalledDate.txt")
Dim DaysInstalled = DateDiff(DateInterval.Day, DateAndTime, Now)
If DaysInstalled > 10 Then
MsgBox("Your trail is over")
Else : ProgressBar1.Value = 10 - DaysInstalled
If someone finds the file path they can simply remove it and start the trail over again. There are much more complicated ways to prevent this abuse, but like I stated, they are complicated. You can have the program register online or do some ninja like stuff in the registry or file path (obfuscate the date and time, encrypt it, etcetera).