Crear sistema trial - donde guardo y como el valor numerico?

[STK_Pablo]

Perdon por la demora, estaba de viaje, aca te paso un ejemplo de como lo uso yo:

Código vb:

Private Sub Form_Load()
  CentrarForm Me
  Me.Show
  If Not (ActiveLock1.RegisteredUser) And (ActiveLock1.LastRunDate > Now) Then
    MsgBox "PoR favor, se ha cambiado la fecha del sistema desde las opciones de MS Windows y eso no está permitido. Coloque nuevamente la fecha correcta para poder ejecutar el programa normalmente."
    End
  End If
  If Not (ActiveLock1.RegisteredUser) And (ActiveLock1.UsedDays > 15) Then
    'Deshabilito algunos botones por ejemplo
    For Cont = 0 To 4
      btnMain(Cont).Enabled = False
    Next Cont
    frmRegistro.Show 1     'Mustro formulario de registro
  End If
End Sub
 

Código vb:

Private Sub ActiveLock1_Registration(WasSuccessful As Boolean)
  If WasSuccessful Then
    MsgBox "Muchas Gracias por legalizar su Copia !!!", vbInformation, "Registración"
    For Cont = 0 To 4
      frmMain.btnMain(Cont).Enabled = True
    Next Cont
    vRegistrado = True
  Else
    MsgBox "ERROR. La clave ingresada no es Correcta.", vbExclamation, "Registración"
    For Cont = 0 To 4
      frmMain.btnMain(Cont).Enabled = False
    Next Cont
    vRegistrado = False
  End If
End Sub
 

Esto dentro del formulario donde colocaste el control.
En otro formulario, el de registro podes poner:

Código vb:

Private Sub Form_Load()
  txtReg(0).Text = frmMain.ActiveLock1.SoftwareCode
End Sub
 

Código vb:

Sub Private Boton_click()
      frmMain.ActiveLock1.Register (txtReg(1).Text)
End Sub
 

Eso es todo en nuestra aplicacion, ahora en el ejemplo incluido en el paquete de instalacion de nslock tenes como crear un keygen para tu aplicacion....
Proba un poco y avisame