Visual Basic - Colocar Vencimiento a un programa

Hola a todos quisiera saber si es posible que alguien me dijera cual es el codigo necesario para colocarle un periodo de vencimiento a un programa, por ejemplo 30 dias, ya he creado uno pero si se retrasa la fecha en el ordenador este (el programa) vuelve a funcionar correctamente. ¿Que puedo hacer para evitar que sea utilizado aun si se mueve el reloj del sistema?, o sea algo así como cuando descargamos un antivirus de pago y no nos permite actualizar mas hasta que no lo compremos o le metamos un crack, saludos...y espero alguien pueda ayudarme

hola amigo
2 cosas:
1: Eso que te pasa que cambias la hora de windows y el programa vuelve a funcionar es lógico, pasa con la mayoría de programas oficiales... ok?
2º:Puedes crear una entrada de registro con una variable de tipo Bool, cuando el programa caduque cambias esa variable a false, y en la ejecución del programa le dices que si esa variable es false salga del programa.
salu2, espero que te sirva la idea

Ok amigo es un excelente idea pero lo que deseo, si no es molestia, es un ejemplo del procedimiento, el que utilizo actualmente es este, pero esta super sencillo:

Dim Caducar
Caducar = CDate("15 septiembre 2004")

SaveSetting "MicrosoftCompanySystem", "Wizards", "UntilClasses", Format(Caducar)

Caducidad = GetSetting("MicrosoftCompanySystem", "Wizards", "UntilClasses")
If Caducidad <> "" Then
Fecha = CDate(Caducidad)

If Fecha < Date Then
MsgBox "El periodo de prueba de este archivo a finalizado!" _
& Chr(10) & "Lamentamos los incovenientes ocasionados" _
& Chr(10) & "Para seguir ejecutando este archivo debe" _
& Chr(10) & "ponerse en contacto con el proveedor del programa" _
& Chr(10) & "[email protected]", vbInformation
ThisWorkbook.Close False
End If

Lo que podrias hacer es que despues de que caduque el periodod de pruebsa se active un contador de apertura del sistema, es decir, que despues de que pasen los 30 dias el sistema se cuente las veces que lo abre y automaticamente se borre o elimine algun dll importante para su carga. espero te sirva.

Ok Gracias me han servido sus ideas...saludos

podes intentar lo siguiente:
en tu programa, crea un archivo de texto con al guna extension especial... por ej: soft.cfg ó soft.dat ,con algo inocente, un correo o un numero X ... cuando se valide los 30 dias de prueba, simplemente borra ese archivo de txt, y el programa no correra mas...