主题：[求助]QQServer

方法一：每次都直接访问服务器获取日期

http://www.foxtable.com/webhelp/scr/2318.htm

方法二：启动的时候，获取服务器时间，赋值给当前电脑

Dim d As Date = new Date(2017, 2, 24, 12, 3, 4)
Today = d
TimeOfDay = d

方法三：按照你的方法，做一个计时器，检测当前时间，满足，就给在线用户发信息，客户端接收到信息后，修改全局变量的值。

参考

http://www.foxtable.com/webhelp/scr/0657.htm