vb 定时器 t = TimeValue(ti) - Time

Time不是可读函数，Timer和Now才可读。
Time是用来设置系统时间的，比如 Time="21:51:32"。

处理非毫秒时间的话，可以用VB函数:
TimeSerial（Hour+x,Minute+y,Second+z)。

比如你的时间是"12:32:40"的话,所剩的时间是"02:10:59"的话，可以这样算:
Label4.Caption = TimeSerial((12-02),(32-10),(40-59))
函数里面用对应的时分秒进行减就可以了。

哪里不对啊
除了那句Dim t As Data应该写为
Dim t As Date
外，没看出哪里不对了

时间的加减要用函数dateadd() datediff()

例如
Print DateDiff("n", Time, "12:00:00")
----------------------------------------------------------------------
DateAdd(interval, number, date)
部分 描述
interval 必要。字符串表达式，是所要加上去的时间间隔。
number 必要。数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。
date 必要。Variant (Date) 或表示日期的文字，这一日期还加上了时间间隔。

设置

interval 参数具有以下设定值：

设置 描述
yyyy 年
q 季
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 时
n 分钟
s 秒

-----------------------------