投稿者   (社会人) 投稿日時 2009/8/24 21:49:44
おかしなところがあったので書き直しました。失礼しました。

Dim count As Integer
    Const max As Integer = 100
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        count -= 1

        If count < 0 Then
            Label1.Text = "時間ぎれです"
           
        Else
            Label1.Text = "残り" & count.ToString & "秒"

        End If



    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = Not Timer1.Enabled
        If Timer1.Enabled = True Then
            count = max
            Button1.Text = "ストップ"
        Else
            Button1.Text = "スタート"
        End If