Private Sub btnLoop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoop.Click
        Do While Not Done
            My.Application.DoEvents()
            Do While OverDone
                My.Application.DoEvents()
            Loop
        Loop
        Started = False
        Done = False
        OverDone = False
    End Sub
 
 
    Private Sub btnToggleDone_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnToggleDone.Click
        If Started Then
            Done = Not Done
        End If
    End Sub
 
    Private Sub btnToggleOverdone_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnToggleOverdone.Click
        If Started Then
            If Not Done Then
                OverDone = Not OverDone
            End If
        End If
 
    End Sub

   Private Sub btnTogglePauseContinue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTogglePauseContinue.Click
        If Started Then
            If Not Done Then
                OverDone = Not OverDone
            End If
            If OverDone = True Then
                btnToggleOverdone.Text = "Continue"
            Else
                btnToggleOverdone.Text = "Pause"
            End
        End If
End Sub