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

If n = 1 Then

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

End If

If n = 1 Then
    Forms("首次注册").Open()
    Code = GetConfigValue("Register" & ComputerId,"")
   
    If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确      
        Messagebox.Show("注册成功!")      
        OK = True      
    End If
Else
     '第二次注册的代码
End If

 代码没有问题，测试之前，要先把次数设置成1

SaveConfigValue("Count", 1)

1、你始终没有给 注册状态 赋值，注册成功后要赋值

setconfigvalue("注册状态", true)

2、使用之前要重置各个值

SetConfigValue("试用次数",0)

SetConfigValue("试用日期",Date.today)

setconfigvalue("注册状态", true)