主题：注册出错

            ”注册“”按钮的代码

      Dim CmpCode As WinForm.TextBox = e.Form.Controls("机器码")

      Dim RegCode As WinForm.TextBox = e.Form.Controls("注册码")

msgbox(regcode.text)

msgbox(DecryptText(regcode.text,"pao","pao"))

      If cmpcode.text <> DecryptText(regcode.text,"pao","pao") Then    '若注册码不正确

            msgbox("当前的注册码无效,请与开发者联系")

        Else