Ordenar una lista

Private Sub boton_Click(sender As Object, e As RoutedEventArgs) Handles boton.Click
        lista.ItemsSource = Nothing
        For cuenta = 1 To 10
            items.Add(New user("jose luis", "24", "elemail@gmail.com"))
            items.Add(New user("juanito perez", "18", "elotroemail@gmail.com"))
        Next

        items.Sort(Function(user1 As user, user2 As user)
                       Return user1.Nombre.CompareTo(user2.Nombre)
                   End Function
                )

        lista.ItemsSource = items
End Sub