Ok, for the trial period, here is a neat trick.
in your code place the following line.
dim Installationdate as string
InstallationDate="__/__/____"
When your application starts for the first time, scan the executable for the string "__/__/____" and replace it with the current system date. VB6 stores data in ASCII and not UTF8 format so it should be fairly straightforward.
In your code, use that variable to compare it with the system date. It's a rather intuitive way of storing the trial start date and keep it rather private. If you want more security, you could also encrypt the date value itself.