Prova con questo....

Inserendo questo codice viene scritta una chiave di registro
che ti consiglio di modificare.
Arrivati a 20 aperture il programma non parte più

'<< Il salvataggio viene memorizzato nel registro di sistema (Esegui -> regedit.exe) pertanto se
'<< volete ripristinare l'applicazione dovete cancellare la dword "RUNCOUNT" che si trova nel percorso
'<< HKEY_CURRENT_USER\Software\VB and VBA Program Settings\me\0

Sub Trial()

Apertura = GetSetting("me", "0", "Runcount")
G$ = Val(Apertura) + 1
Form1.Caption = (G$) & " volta che apri la mia applicazione!"

SaveSetting "me", "0", "RunCount", G$
If G$ > 20 Then
Messaggio = MsgBox("Il prodotto è scaduto, vuoi attivare il prodotto??!", vbYesNo, "IL periodo TRIAL è scaduto")
If Messaggio = vbYes Then
'{
'
'<< Istruzioni per richiedere la registrazione del prodotto
MsgBox "Qui verranno agginte delle funzioni per attivare il vostro prodotto!",
'{
End
Else
MsgBox "Tecnica molto utile per creare le applicazioni Trial?", vbDefaultButton4,
End
End If
End If


End Sub

Private Sub Form_Load()

Trial

End Sub


CIAO