Visual Basic

Private Sub comtest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comtest.Click
    username = Text1.Text
    userscore = Val(Text2.Text)
    For i = 1 To 10
        a = scores(i)
        If userscore >= a Then
            test1(i) = username
            test2(i) = userscore
            For b = i + 1 To 10
                test1(b) = names(b - 1)             ' comes up with an error saying ArgumentOutOfRage index was out of range, must be non-negative 
                test2(b) = scores(b - 1)
            Next
            Call newscore()
            Exit Sub
        End If
        test1(i) = names(i)
        test2(i) = scores(i)
    Next
End Sub

Public Class HighScore
  Dim Name As String
  Dim Score As Integer
End Class

Public Class HighScore
  Implements System.IComparable(Of HighScore)

  Dim Name As String
  Dim Score As Integer

  Public Function CompareTo(ByVal other As HighScore) As Integer
    CompareTo = -Score.CompareTo(other.Score)
  End Function
End Class

Ian Shlasko wrote:

SortedList(Of HighScore)

Ian Shlasko wrote:

SortedList(Of Integer, HighScore)

<br />
Private Sub DataGridView1_CellContentClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick<br />
        If e.ColumnIndex = 2 Then <br />
         'assuming this is your column number for store, development agent, previous owner<br />
         'then show your error message if not enter what is required<br />
        End If<br />
<br />
    End Sub<br />