Imports System.Threading
Imports WMPLib

Public Class frmMain

    Private stopWatch As New Stopwatch()
    Private beeper As Threading.Thread
    Private WithEvents Player As WMPLib.WindowsMediaPlayer

    Private Sub beepCycler()
        Player = New WMPLib.WindowsMediaPlayer()
        Player.URL = "C:\beep.wav"

        stopWatch.Start()

        While (True)
            Thread.Sleep(1)
            If stopWatch.Elapsed.Milliseconds > 100 Then

                Player.controls.play()

                stopWatch.Stop()
                stopWatch.Start()
            End If
        End While
    End Sub

    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click

        If btnStart.Text = "Start" Then
            btnStart.Text = "Stop"
            beeper = New Threading.Thread(AddressOf beepCycler)
            beeper.Start()
        Else
            btnStart.Text = "Start"
            Try
                beeper.Abort()
            Catch ex As ThreadAbortException
                '
            End Try

        End If

    End Sub

    Private Sub doBeep()
        My.Computer.Audio.Play(My.Resources.beatLight, AudioPlayMode.Background)
    End Sub

End Class