做一個時間限制的測試版

可用注冊表簡單地保存已用的天數或次數

'次數限制（如３０次）如下：
Private Sub Form_Load()
Dim RemainDay As Long
RemainDay = GetSetting("MyApp", "set", "times", 0)
If RemainDay = 30 Then
MsgBox "試用次數已滿，請……"
Unload Me
End If
MsgBox "現在剩下：" & 30 - RemainDay & "試用次數，好好珍惜！"
RemainDay = RemainDay + 1
SaveSetting "MyApp", "set", "times", RemainDay
End Sub

'時間限制的（如３０天）
Private Sub Form_Load()
Dim RemainDay As Long
RemainDay = GetSetting("MyApp", "set", "day", 0)
If RemainDay = 30 Then
MsgBox "試用期已過，請……"
Unload Me
End If
MsgBox "現在剩下：" & 30 - RemainDay & "試用天數，好好珍惜！"
if day(now)-remainday>0 then RemainDay = RemainDay + 1
SaveSetting "MyApp", "set", "times", RemainDay
End Sub

原文轉自：http://www.anti-gravitydesign.com