纪风声明：这并不是写给高级程序员的文章，因为这篇文章可以说是很初级！
#当您在设计完成第一个Tools<测试版>时，如果想设置他的测试日期，可以看下文！
此程序是用注册表简单地保存已用的天数或次数，达到测试的目的！'次数限制99次：
Private Sub Form_Load()
Dim RemainDay As Long
RemainDay = GetSetting("MyApp", "set", "times", 0)
If RemainDay = 99 Then
MsgBox "对不起，测试版使用次数以满，请您注册！"
Unload Me
End If
MsgBox "目前剩下：" & 99 - RemainDay & "试用次数"
RemainDay = RemainDay + 1
SaveSetting "MyApp", "set", "times", RemainDay
End Sub
===================================================================
'时间限制99天
Private Sub Form_Load()
Dim RemainDay As Long
RemainDay = GetSetting("MyApp", "set", "day", 0)
If RemainDay = 99 Then
MsgBox "对不起，测试版试用期以过，请您注册！"
Unload Me
End If
MsgBox "目前剩下：" & 99 - RemainDay & "试用天数！"
if day(now)-remainday>0 then RemainDay = RemainDay + 1
SaveSetting "MyApp", "set", "times", RemainDay
End Sub
#好了，写完了此文，应该不会另大家失忘是吧--就此停笔！纪风先闪一步！
------------------
天涯孤旅何时才能停止！
带着最终的信念飘零尘世！
只对着一屡屡的清风痴迷！
这就是我-千年纪风-与风作伴的天涯浪子...
适于打印的主题视图