'次数限制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

#好了，写完了此文，应该不会另大家失忘是吧--就此停笔！纪风先闪一步！

------------------
天涯孤旅何时才能停止！
带着最终的信念飘零尘世！
只对着一屡屡的清风痴迷！
这就是我-千年纪风-与风作伴的天涯浪子...