Esto te dara una idea. Estoy usando un archivo para controlar la fecha de instalacion
Cita: Public Class Form1
Public iFecha As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'ingresa una fecha en un archivo de texto y guardalo en C:\ con el nombre miArchivo.dat
Dim meses, dias As Double
meses = DateDiff("m", Verifica_archivo(), Now)
dias = DateDiff("d", Verifica_archivo(), Now)
If dias + (meses * 30) < 30 Then
MsgBox("Ok Puedes usar mi sistema")
Else
End
End If
End Sub
Private Function Verifica_archivo() As String
Dim miArchivo As String = "miArchivo.dat"
Dim ruta As String = _
My.Computer.FileSystem.Drives.Item(1).RootDirector y.Name
If My.Computer.FileSystem.FileExists(ruta & miArchivo) Then
' Abrir el archivo de texto usando
' OpenTextFieldParser.
Dim MyReader As Microsoft.VisualBasic.FileIO.TextFieldParser
MyReader = My.Computer.FileSystem.OpenTextFieldParser( _
ruta & miArchivo)
' Se obtiene cada renglon
' de el archivo de texto y se coloca en una variable.
' Luego se cierra el TextFieldParser.
Try
iFecha = MyReader.ReadLine()
Catch ex As Exception
MessageBox.Show("ERR: " & ex.Message, "Error Leyendo")
Finally
MyReader.Close()
End Try
Else
MsgBox("No existe el archivo de configuracion. Asegurese de tenerlo" _
& " en la ubicacion correcta.", MsgBoxStyle.OkOnly, _
"Advertencia")
End If
Return iFecha
End Function
End Class
Este codigo esta probado en VB 2008 Express. Puede que hayan variaciones en la version 2005