Отсчет времени при аудиозаписи

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim s, m, n As Integer
        Timer1.Enabled = True
        tb.Enabled = True
        If Button1.Text = "Stop" And tb.Value <> 200 Then
            tb.Value += 1
            m = m + 1
            l2.Text = m
            l1.Text = s
            If m = 10 Then
                s = s + 1
                m = 0
            End If
        End If
    End Sub

Public Class Form1
    Dim s, m, n As Integer
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Button1.Text = "Stop" And tb.Value <> 200 Then
            tb.Value += 1
            m = m + 1
            Label1.Text = (s & ":" & m)
            If m = 10 Then
                s = s + 1
                m = 0
            End If
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Interval = 100
        Timer1.Start()
        Button1.Text = "Stop"
        tb.Enabled = True
    End Sub
End Class