Add the following Sub to your project
Sub TestForExpired()
Const ExpireDate = "01/02/97"
If Date > DateValue(ExpireDate) Then
MsgBox "This application has expired. Please contact ...", 16, "Expired
Application"
End
End If
End Sub
Call this procedure from your startup routine or from the Form_Load
procedure of your startup form. It will compare todays date with the
constant ExpireDate.
Craig
Quote:> I would like my application to expire (rendered useless)after 30 days.
> After 30 days, I would like it to require a password(or registration
> number) to work again. This would be for distribution/registration
> purposes. Could someone suggest the best way to do something like this?
> Any code examples or ideas would be greatly appreciated. Thanks