第一个项目属性：

If GetConfigValue("试用起始日",#1/1/2000#) = #1/1/2000# Then
    \'定义一个试用起始日的变量,让默认日期为早期时间, 若是第一次运行,则将试用日期设为当天
    SaveConfigValue("试用起始日",Date.Today)
End If
Dim usetoday As Date = GetConfigValue("试用日期",Date.today)  \'定义一个日期变量,来记录系统本次打开日期
Dim Regok As Boolean = getconfigvalue("注册状态",False)   \'定义一个逻辑变量,用来记录注册成功与否
Dim startday As Date = GetConfigValue("试用起始日",#1/1/2000#) \'定义一个日期变量,来记录第一次打开系统的日期
If regok = False Then    \'若是未注册状态
    If Date.Today < usetoday Then  \'若当前日期小于上一次的试用日期,则说明系统时间被修改
        msgbox("系统时间被非法修改,不能进入系统!")  \'给消息提示
        syscmd.project.Exit()   \'强制退出系统
        Return
    End If
    If Date.Today > startday.AddDays(2) Then   \'若今天比第一次打开系统的日期过去3天了
        Forms("注册").open
        Return
Else
请把这里修改下：       

If Date.Today > startday.AddDays(365) Then  
        regok = False
        Forms("注册").open
        Messagebox.Show("您正在使用的软件已到期,请联系重新注册!")
                Syscmd.Project.Exit()
                Return
            End If
End If
End If

SaveConfigValue("试用日期",Date.Today)   \'把今天的日期写入到试用日期的参数值里
Forms("数据处理").open

第二个注册窗口：

Dim CMPCODE As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim REGCODE As WinForm.TextBox = e.Form.Controls("TextBox2")

CMPCODE.Text = ComputerId

Dim regok As Boolean = getconfigvalue("注册状态",False) \'定义注册状态的变量
Dim startday As Date = GetConfigValue("试用起始日",Date.Today)   \'定义第一次试用的日期

Dim reg As WinForm.Label = e.Form.Controls("Label3")
Dim tp As TimeSpan = Date.Today - startday

If regok = False  Then  \'若未注册
    reg.text = "您使用的是试用版,还能试用" & 3-tp.Days & "天"
Else
请把这里修改下：

 If Date.Today > startday.AddDays(365) Then   \'若今天比第一次打开系统的日期过去3天了
        reg.text = "您使用的软件已到期,请重新注册"
        regok = False
        Forms("注册").open
        Return         \'返回,不执行后面的打开窗口1的代码
    Else
    reg.text = "您使用的是正式版,使用期限一年,请在一年后重新注册"
End If
End If

 你要记录使用期是多少啊。

1、保存成功注册日期；

2、取出注册日期，比如 regDay，如果

If Date.Today > regDay.AddDays(365) Then   \'若今天比第一次打开系统的日期过去3天了