主题：[求助]请问怎样设置超过试用次数以后再也无法打开产品

假定提供给客户的是一个试用版本,希望最多使用30次,可以在项目事件AfterOpenProject中加入如下代码:

Dim n As Integer
n = GetConfigValue("Count",1) '假定保存试用次数的设置名称为Count
If n > 30 Then
   Messagebox.Show("您正在使用的产品已经超出试用次数!")
   Syscmd.Project.Exit()
Else
   n = n + 1
    SaveConfigValue("Count",n)
End If

请问怎样设置以后再也无法打开产品

加文字呢？比如：您的剩余试用次数为：27次！怎么修改？

看看我这段有什么问题

Dim n As Integer
n = GetConfigValue("试用次数",1) '假定保存试用次数的设置名称为Count
messagebox.show("你的剩余试用次数为:" & 15-n & "次! 继续试用吗?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
If n = DialogResult.Yes Then
    MessageBox.Show("您选择了继续试用.","提示")
    If n = DialogResult.No Then
        MessageBox.Show("您选择了不继续,单击确定退出!","提示",MessageBoxButtons.OK)
        If n > 15 Then
            Messagebox.Show("您正在使用的产品已经超出试用次数,如需继续使用,请与开发者联系!")
            Syscmd.Project.Exit()
        Else
            n = n + 1
            SaveConfigValue("试用次数",n)
        End If
    End If
End If

不能实现预想的效果

如果我要在达到规定次数后只是变为查阅模式呢？

看看我这段有什么问题

Dim n As Integer
n = GetConfigValue("试用次数",1) '假定保存试用次数的设置名称为Count
messagebox.show("你的剩余试用次数为:" & 15-n & "次! 继续试用吗?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
If n = DialogResult.Yes Then
MessageBox.Show("您选择了继续试用.","提示")
If n = DialogResult.No Then
MessageBox.Show("您选择了不继续,单击确定退出!","提示",MessageBoxButtons.OK)
If n > 15 Then
Messagebox.Show("您正在使用的产品已经超出试用次数,如需继续使用,请与开发者联系!")
Syscmd.Project.Exit()
Else
n = n + 1
SaveConfigValue("试用次数",n)
End If
End If
End If

不能实现预想的效果,不出现第二个提示窗口，如果选择No，也不会退出，哪里写错了？