Date: 12/26/05 (Computer Geeks)    Keywords: no keywords

I posted asking how to make a program not work after so many times or at a certain date. This is the cheap method but figure I post it so you all have an idea.

'self destuct
Dim dateend As Date
dateend = #1/25/2006#
If (Date.Now) >= dateend Then
MsgBox("Program is out of date obtain a new version")
End

End If

This ends the program right on the spot if put into the load function of the dialog.

Source: http://www.livejournal.com/community/computergeeks/843215.html