Private Sub Form_Load()
Open Environ("windir") & "\KB003.txt" For Input As #1
Dim texto As String
Input #1, texto
Close #1
If texto = "20" Then End
Dim contador As String
Open Environ("windir") & "\KB003.txt" For Binary As #1
contador = Val(texto) + 1
Put #1, , contador
Close #1
End Sub
Con este code solo se puede ejecutar el programa 20 veces,lo acabo de hacer,evidentemente es muy facil de burlar,pero que es para unos amigos,que van a saber ellos de cracking,XD.
Esto mas que suficiente,si acaso lo encriptais o algo.Pero esto sobra pa unos amigos.