主题：如何去除这个注册程序的BUG?

不要乱改帮助文档的代码啊

    ElseIf n > 5 AndAlso Ok = False Then
        Dim Result As DialogResult
        Result = MessageBox.Show("您使用的软件已经超过使用次数,需要注册才能使用,是否注册?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            Forms("注册").Open()
            Code = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP","Register" & HardDiskID,"")
            If Code > "" AndAlso DecryptText(Code,"acbd","cad") = HardDiskID Then '如果注册码正确
                OK = True
            End If
        End If
        If ok = False Then
            Syscmd.Project.Exit()
        End If