Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim y As Integer = Integer.Parse(TextBox2.Text) 'get the year from the text box
        Dim ps As playerScore = New playerScore(TextBox1.Text, y, score) 'create a new playerscore
        scores(index) = ps 'add this too the array
        RichTextBox1.ResetText()
        For x = 0 To index
            RichTextBox1.AppendText(scores(x).getStats()) 'put the text in the textbox
        Next
        index += 1

        FormMain.setScores(scores, index) 'save the scores to the main form so there still there if this window is shut

    End Sub