2016的版本推出了了，试了一下弹  窗的效果，好奇的是：

窗体是一下子就出来了，里面的内容是向上滚动出现的，

想问的是：系统本身就是这种效果，还是我设计的有问题？

Vars("Mark2")写在项目的全局变量中，初始值为false

项目打开后执行：

If Vars("Mark2") = False Then
    Dim Year As Integer = Date.today.year
    Dim d1 As Date
    Dim d2 As Date
    d1 = New Date(Year,12,31)
    d2 = new Date(Year,12,25)
    If Date.today >= d2 And Date.today <= d1 Then
        forms("弹窗").open
    End If
End If

那么凡是在此时间段，均弹出该窗口，通过“一键结余”按钮来执行当年结余计算，可

问题来了：

比如：用户在今天执行了“一键结余”，明天这个窗口依旧会弹出!

于是:

在“一键结余”按钮中加入代码：

 If Vars("Mark2") = False Then

  Vars("Mark2") =true

end if

但是，好像没有起到效果！

即使上述代码可以完成预期效果，即：

  Vars("Mark2") =true

那么同样会带来一个麻烦：这个窗口就永久不会再开了，也就是在2016年结束的时候，它不会再弹出来了。

整理一下，希望的效果：

每年的12月25日至12月31日，弹出该窗口提醒用户执行“一键结余”

如果用户执行了该操作,则不再弹出

可能还是有bug吧

你可以用一个表，记录其年份嘛。

比如2014，点击了，就记录2014；

在代码里面，判断年份是否点击了，没有点击的话，就弹出。