Public Class Form1

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()

    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        txtGrade1.Text = ""
        txtGrade2.Text = ""
        txtGrade3.Text = ""
        txtGrade4.Text = ""
        txtGrade5.Text = ""
        lblResult.Text = ""
        txtGrade1.Focus()

    End Sub

    Private Sub btnSort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSort.Click
        Dim Test(5) As Integer
        Dim I As Integer
        Dim X As Integer
        Dim temp As Integer