VB做试用软件，只能试用一次，应该怎么编辑代码？

Option Explicit
Private Sub Form_Load()
If GetSetting(你的程序名或者随便什么, "copyright", "ok", 1) Then
SaveSetting 你的程序名或者随便什么, "copyright", "ok", 0
Else
End
End If
End Sub

"你的程序名或者随便什么","copyright", "ok", 是regedit的键,你可以随便命名