è pi semplice di quanto si creda allora basta aprire il form e inserire questo codice
Private Sub Form_Load()
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$ >...