Public Class Form1
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Me.Close()
        End
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub
End Class

    Dim DbConn As odbcConnection
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Public Class Form1
    Dim m_wordsList() As String = {"q", "b", "c"}
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ReadingDelay As Double = 0
        ReadingDelay = (60 / CDbl(txtWPM.Text)) * 1000 'time in millseconds
        For words = 1 To m_wordsList.Count
            txtstdTextBox.Text