主题：注册中的一个问题：我想一年后重新再注册怎么设计？

Dim CmpCode As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim RegCode As WinForm.TextBox = e.Form.Controls("TextBox2")

If cmpcode.text <> DecryptText(regcode.text,"pao","pao") Then    '若注册码不正确
    msgbox("无效的注册码")
Else
    msgbox("感谢您的注册!")
    SaveConfigValue("注册状态" ,True)    '若注册成功则保存设置,并关闭窗体
    e.Form.close
End If

我的想法：使用一年后原注册码过期，重新注册才能使用，同时不能使用原注册码，须更换成新的注册码，怎么设计？请老师帮忙。

如第一年用aaa获得注册码，第二年用bbb,第三年用CCC，以此类推，先设计10年的吧，If cmpcode.text <> DecryptText(regcode.text,"pao","pao") Then

一年后换注册码怎么换？怎么自动把pao换成aaa

再次注册的话如果用原注册码不是就能注册了吗，起不到限制的作用啊