Imports System
Imports System.Linq
Imports System.Collections.Generic
Class Program
Public Shared Sub Main()
Dim lst As List(Of Integer) = Enumerable.Range(1, 10).ToList()
Dim random As Random = New Random()
Dim randomSublist As List(Of Integer) = lst.OrderBy(Function(x) random.[Next]()).Take(5).ToList()
Console.WriteLine(String.Join(", ", randomSublist))
End Sub
End Class
' run:
'
' 8, 7, 10, 9, 4
'