'参考地址:http://zhidao.baidu.com/question/71657546.html，本来自己写得出来的，可是太懒了，就找了别人的代码，哈哈
Private Sub Form_Load()
	Dim nStr As String, S As Long
	
	nStr = GetSetting("MySoft", "MyApp", "Times", "")                   '从注册表读取已使用次数
	
	S = Val(nStr)
	MsgBox "已使用次数：" & S, vbInformation                            '显示使用次数，本语句可删除
	If S > 5 Then                                                       '软件次数设为5次
		MsgBox "软件试用期已到！如须继续使用请够买正试版！", vbInformation
		End
	End If
	
	SaveSetting "MySoft", "MyApp", "Times", S + 1                       '使用次数加1，保存到注册表
End Sub