in form load:
VB Code:
Dim NumOfRuns as integer NumOfRuns = Val(Getsetting("APPNAME","DATA","RUNS","0")) NumOfRuns = NumOfRuns + 1 SaveSetting "APPNAME", "DATA", "RUNS", NumOfRuns 'Check for too many... if NumOfRuns > 15 then Msgbox "You have run this more than 15 times" 'etc..




Reply With Quote