请问在VB中怎么实现象某些软件的试用，当你用过50次，它就提示你不能用了，非常感谢大家！

请问在VB中怎么实现象某些软件的试用，当你用过一定次数后，它就提示你不能用了，非常感谢大家！我说的不是判断按钮的次数，那样重新打开后又回到了初始状态，怎么能在程序内部自动存储使用次数，谢谢了！
请问jizhongbo，光这个代码吗？还要在什么地方进行设置，这个问题我搞的不大懂，请问能不能更加的详细一些！我的意思就是这个意思，从时间和使用次数来判断，应该是最好不过的了，请不吝赐教！！，谢谢了

'判断试用期是否已到
Private Sub Validate()
Dim Times As Integer '已经使用的次数
Dim Days As Integer '已经使用的天数

'使用次数限制(450次)
Times = GetSetting("MyApp", "MySetting", "times", 0)
If Times = 450 Then GoTo MyError

'提示
If Times > 0 And Times Mod 50 = 0 Then
MsgBox "仅剩下" & Str(450 - Times) & "次试用机会，请尽快向软件开发商申请正式使用许可！", _
vbInformation, "演示版"
End If

Times = Times + 1
SaveSetting "MyApp", "MySetting", "times", Times

'时间限制(90天)
Days = GetSetting("MyApp", "MySetting", "Days", 0)
If Days = 90 Then GoTo MyError
If Day(Now) - Days > 0 Then Days = Days + 1
SaveSetting "MyApp", "MySetting", "Days", Days