主题：窗口内有两个按钮怎么实现自动交替触发，再帮忙考虑考虑

我的窗口内有两个“按钮”控件，希望自2013年12月1日起，每7天触发其中一个，交替触发，不知道怎么写。

请老师们帮忙啊~！

按钮编号末尾加上1、2……

执行按钮命令代码：

Dim d As Date = date.today()

Forms("窗口1").Controls("Button" & ((d.day \ 7) mod 2)+1).PerformClick()

斌版的方法也存在问题，我的窗口将是打开后不是每天都关闭的，不能拿打开窗口前 获取日期ConfigVALUE,判断一下距离上次是否足够7天, 如果足够则获取另外一个ConfigVALUE 得知上次触发的是那个按钮

Dim d As Date = date.today()

Forms("窗口1").Controls("Button" & (((d.day-1) \ 7) mod 2)+1).PerformClick()