VB.Net by API/System/Random

Random.Next

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main(ByVal args As String())
       Dim friends() As String = {"1", "2", "3","4", "5"}

       Dim upperBound As Integer = friends.Length
       Dim random As New System.Random()
       Dim n As Integer
       For n = 1 To 10
           Dim index As Integer = random.Next(upperBound)
           Console.WriteLine(index & ": " & friends(index))
       Next
   End Sub
   

End Class

 </source>