另一種時間倒數的做法

        Dim tmpFinal As Date = Now.AddSeconds(86402)
        Do
            Dim tmpFormat As Long = DateDiff(DateInterval.Second, Now, tmpFinal)
            Dim tmpD As UInt16 = tmpFormat \ (24 * 60 * 60)
            Dim tmpH As UInt32 = (tmpFormat - tmpD * (24 * 60 * 60)) \ 60 * 60
            Dim tmpM As UInt32 = (tmpFormat - tmpD * (24 * 60 * 60) - tmpH * (60 * 60)) \ 60
            Dim tmpS As UInt32 = (tmpFormat - tmpD * (24 * 60 * 60) - tmpH * (60 * 60) - tmpM * 60)
            Me.Text = tmpD & ":" & tmpH & ":" & tmpM & ":" & tmpS
            Application.DoEvents()
            Threading.Thread.Sleep(1000)
        Loop