主题：我想做２个注册窗口中，怎样做？

AfterOpenProject事件：

Dim n As Integer = GetConfigValue("Count",1)

Dim Code As String = GetConfigValue("Register" & ComputerId,"")

Dim Ok As Boolean

 Forms("首次注册").Open()

 Code = GetConfigValue("Register" & ComputerId,"")

 If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确

 Messagebox.Show("注册成功!")

 OK = True

   End If

 Syscmd.Project.Exit()

If Code > "" AndAlso DecryptText(Code,"bcd","bcd") = ComputerId Then '如果注册码正确

    OK = True

Else

    If n > 20 Then

        Forms("限次注册").Open()

        Code = GetConfigValue("Register" & ComputerId,"")

        If Code > "" AndAlso DecryptText(Code,"bcd","bcd") = ComputerId Then '如果注册码正确

            Messagebox.Show("注册成功!")

            OK = True

        End If

    End If

    If n > 30 AndAlso Ok = False Then

        Messagebox.Show("您正在使用的产品已经超出试用次数!")

        Syscmd.Project.Exit()

    End If

End If

n = n + 1

SaveConfigValue("Count",n)