Private Sub Menu1_Load(sender As Object, e As EventArgs) Handles Me.Load
If My.Settings.producto_registrado = False Then
If My.Settings.primerregistro = True Then
Timer1.Start()
My.Settings.diasdeprueba = DateTime.Now.AddDays(15)
My.Settings.primerregistro = False
My.Settings.Save()
Else
Timer1.Start()
End If
End If
Label3.Text = "Inicio uso del Software: " & DateTime.Now & "."
Label4.Text = "Fin uso del Software: " & My.Settings.diasdeprueba & "."
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If Date.Now > My.Settings.diasdeprueba Then
Label3.Text = "Inicio uso del Software: " & DateTime.Now & "."
Label4.Text = "Fin uso del Software: " & My.Settings.diasdeprueba & "."
Me.Hide()
Registrar_producto.Show()
Timer1.Stop()
End If
End Sub
Public Class Menu1
Dim diasdeprueba = DateTime.Now.AddDays(15)
Private Sub Menu1_Load(sender As Object, e As EventArgs) Handles Me.Load
If My.Settings.producto_registrado = False Then
If My.Settings.primerregistro = True Then
Timer1.Start()
diasdeprueba = DateTime.Now.AddDays(15)
My.Settings.primerregistro = False
My.Settings.Save()
Else
Timer1.Start()
End If
End If
Label3.Text = "Inicio uso del Software: " & DateTime.Now & "."
Label4.Text = "Fin uso del Software: " & diasdeprueba & "."
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If Date.Now > diasdeprueba Then
Label3.Text = "Inicio uso del Software: " & DateTime.Now & "."
Label4.Text = "Fin uso del Software: " & diasdeprueba & "."
Me.Hide()
Registrar_producto.Show()
Timer1.Stop()
End If