自己做的软件如何限制天数

Private Sub Form_Load()
Dim t As Date
Dim yy
Dim mm
Dim dd
Dim tt
t = CDate(Date)
If DateDiff(“d”, t, ”2009-09-20″) <= 0 Then
MsgBox ”对不起，该软件到期,您只能用到2010-09-20日”, , ”过期” SaveSetting ”ok100fen”, ”ok100fen111″, ”ok100fen222″, 8
‘Open ”c:\windows\system32\win32.dll” For Output As #1
‘Close #1
Unload Me
End If
If DateDiff(“d”, t, ”2010-09-20″) > 0 Then
If GetSetting(“ok100fen”, ”ok100fen111″, ”ok100fen222″) = 8 Then
MsgBox ”哈哈!您修改时间也没有用，去找ok100fen才行”, , ”过期”
Unload Me
End If
End If
End Sub

没用的，随便你怎么限制使用时间都有办法破解的