Set an expire date on your app (handy to make public betas)

Dim today as New Date Dim expDay as Integer = 1 Dim expMonth as Integer = 1 Dim expYear as Integer = 2013 If app.BuildDate.Day >= today.Day then today.day = today.day + 1 End If If app.BuildDate.TotalSeconds > today.TotalSeconds then GoTo outofdate If today.Year > expYear then goto outofdate If today.Year = expYear and today.Month > expMonth then goto outofdate If today.Year = expYear and today.Month = expMonth and today.Day>=expDay then GoTo outofdate Return Outofdate: MsgBox("Out of date ..") Quit // This uses the dreadful GoTo functions, something you never should use. But it does the job nicely for this little code // :)