参考:http://www.foxtable.com/help/topics/0287.htm
例如:窗口放一个Label控件,启用窗口计时器,间隔1000,TimerTick事件:
Dim d As Date = Tables("表A").Rows(0)(0) '获取到期时间
Dim t As TimeSpan = d - Date.Now
e.Form.Controls("Label1").Text = "剩余" & t.Days & "天" & t.Hours & "小时" & t.Minutes & "分" & t.Seconds & "秒"