vb计时器如何倒计时，最后是00：00：00格式

这是离晚上6点半的倒计时:

Dim StartTime

Private Sub Form_Load()
StartTime = #6:30:00 PM#
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Cls
Print DateAdd("s", DateDiff("s", Time, StartTime), 0)
End Sub