Visual Basic - Como puedo hacer una aplica....

Como puedo hacer una aplicacion de evaluacion o sea que los x dias esta expire y tenga que registrarse Mmmmm! Buena No?

Ok . Les dejo la inquietud

saludos desde grecia

Hola !

Esa esta Facil Sanson

Aqui te va el Codigo, lo corres con la fecha de hoy y te sales para quet quede el registro hecho de la primera vez que se ejecuto, y luego le aumentas a la compu unos meses, lo vuelves a correr y veras lo que pasa .

La agregas a un form, ojo la opcion "miApp" se refriere al nombre de la aplicacion ok

Private Sub Form_Load()
Dim intLastEntry As String
Dim intSecoEntry As String
intLastEntry = GetSetting("MiApp", "Licencia", _
"Fecha", "0")

intSecoEntry = GetSetting("MiApp", "Licencia", _
"Expiro")

If intSecoEntry = "S" Then
MsgBox "Su licencia Ha expirado"
End
Else

If DateAdd("d", 30, CDate(intLastEntry)) <= Date Then

MsgBox "Su Programa ha Expidado Debe de registrarlo a....."
SaveSetting "MiApp", "Licencia", "Expiro", "S"
Else
MsgBox "Su Programa Esta Activo"
End If

End If

End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim intSecoEntry As String

intSecoEntry = GetSetting("MiApp", "Licencia", _
"Expiro")

If intSecoEntry = "" Then
SaveSetting "CampoMemo", "Licencia", "Fecha", Date
SaveSetting "CampoMemo", "Licencia", "Expiro", "N"
End If

End Sub

Tovares

Saludos desde Costa Rica