Fecha de caducidad en un programa

[memocaceres]

Hola amigos,

Tengo un código en el cual estoy poniendo fecha de caducidad a mi programa lo cual hago cuando llega a una fecha determinada, el problema es que pasada esa fecha el programa se vuelve a activar y yo deseo que quede bloqueado, gracias de antemano por cualquier ayuda.

este es el código:

Dim factual As DateTime = System.DateTime.Now
Dim ffinal As String

Private Sub diasdeprueba()

ffinal = "12-06-2013"

If (ffinal.Equals(factual.ToString("dd-MM-yyyy"))) Then
MessageBox.Show("Esta versión finalizó el " + factual.ToString("dd-MM-yyyy"))
me.hide
End
End If

End Sub