visual basic でストップウォッチ作成

ヘディングのテキスト

以下のようにストップウォッチを作ったのですが、ストップを押しても時間が進んでしまいます。
解決策を教えて下さい。

visual basicコード

Public Class Form2
Private datstart1 As Date > 'nowを入れる変数
Private datstart2 As Date
Dim beforin As String
Dim rtime As TimeSpan
Dim bb As String
Dim ts As TimeSpan

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

    Dim dd As Integer = Math.Floor(ts.Milliseconds / 10)
    lbl1.Text = Format(ts.Hours, "00") & ":" & Format(ts.Minutes, "00") & ":" & Format(ts.Seconds, "00") & "." & dd.ToString("00")

End Sub

Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click

    If btn1.Text = "スタート" Then　> 'もしbtn1にスタートと表示されていたら
        Timer1.Enabled = True　　　> 'btn1は可能
        If Not beforin = "ストップ " Then
            datstart1 = Now

        End If

        btn1.Text = "ストップ"   > 'btn1がストップになる
        Me.btn3.Enabled = False  > 'btn1は不可能
        beforin = "スタート "
    Else
        Me.btn2.Enabled = True   > 'btn1は可能- リスト
        btn1.Text = "ストップ "　> 'btn1は不可能
        Timer1.Enabled = False
        Me.btn3.Enabled = True　　　> 'btn1は可能
        btn1.Text = "スタート"　> 　　'btn1がスタートになる
        beforin = "ストップ "

    End If
End Sub

Private Sub btn3_Click(sender As Object, e As EventArgs) Handles btn3.Click

    lbl1.Text = "00:00:00.00"
    Me.btn1.Enabled = True　　　> 'btn1は可能
    txt1.Text = ""　　　　　　　> 'クリアされる
    a = 0
    beforin = "キャンセル"
    bb = "キャンセル"
End Sub
Dim a As Integer
Private Sub btn2_Click(sender As Object, e As EventArgs) Handles btn2.Click
    Dim ts As TimeSpan
    Dim St As String = txt1.Text

    If beforin = "スタート " Then
        a = a + 1      '> これで押された回数を求める
        ts = DateTime.op_Subtraction(Now, datstart1)
        If bb = "キャンセル" Then
            rtime = Nothing
            bb = "0"
        End If
        ts = ts - rtime
        Dim dd As Integer = Math.Floor(ts.Milliseconds / 10)
        St = "♯" & a & "        " & Format(ts.Hours, "00") & ":" & Format(ts.Minutes, "00") & ":" & Format(ts.Seconds, "00") & "." & dd.ToString("00")
        txt1.AppendText(St + vbCrLf)
        rtime = DateTime.op_Subtraction(Now, datstart1)
    End If
End Sub

End Class

どうぞよろしくお願いいたします。

itagagaki

2021/05/07 02:09

コードが読みにくいです。マークダウン記法を利用してください。 https://teratail.com/help/question-tips#questionTips3-7 そして、このコードが、何がどうされたらどうなってどう動くはずなのか、順を追って解説してみてください。回答者のコードの理解に役立ちますし、そのことであなたの頭の中も整理されて気付かなかった問題に気付くかもしれません。