Function delayread() As String
        Try
            Return My.Computer.FileSystem.ReadAllText(My.Computer.FileSystem.SpecialDirectories.Temp & "\vbdelay.txt")
        Catch ex As Exception
            Return ""
        End Try
    End Function
    Private Sub Bubble_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        textbox1.Text = numbers(randomText.Next(10))
        Do Until delayread() = "True"
        Loop
        dataset.Add(Convert.ToInt16(textbox1.Text))
        Do Until delayread() = "True"
        Loop
        textbox2.Text = numbers(randomText.Next(10))
        Do Until delayread() = "True"
        Loop
        dataset.Add(Convert.ToInt16(textbox2.Text))
        Do Until delayread() = "True"
        Loop
        textbox3.Text = numbers(randomText.Next(10))
        Do Until delayread() = "True"
        Loop
        dataset.Add(Convert.ToInt16(textbox3.Text))
        Do Until delayread() = "True"
        Loop
        textbox4.Text = numbers(randomText.Next(10))
        Do Until delayread() = "True"
        Loop
        dataset.Add(Convert.ToInt16(textbox4.Text))
        Do Until delayread() = "True"
        Loop
        textbox5.Text = numbers(randomText.Next(10))
        Do Until delayread() = "True"
        Loop
        dataset.Add(Convert.ToInt16(textbox5.Text))
        Do Until delayread() = "True"
        Loop
    End Sub