Public Class Form1



    Private m_dtNow As Date



    Private Sub cmdStart_Click(sender As System.Object, e As System.EventArgs) Handles cmdStart.Click

        Timer1.Start()

        m_dtNow = Date.Now

        Label1.Text = "10.00秒"

    End Sub



    Private Sub Timer1_Tick(sender As Object, e As System.EventArgs) Handles Timer1.Tick

        Dim dtTmp = Date.Now



        Dim msec = dtTmp.Subtract(m_dtNow).TotalMilliseconds



        If msec > 10000 Then

            Label1.Text = "0.00秒"

            Timer1.Stop()

        Else

            Label1.Text = ((10000 - msec) / 1000).ToString("0.00秒")

        End If

    End Sub



    Private Sub cmdEnd_Click(sender As Object, e As System.EventArgs) Handles cmdEnd.Click

        Timer1.Stop()

    End Sub

End Class