Option Strict On
Imports System
Imports System.Collections.Generic
Public Module Program
Sub Main()
Dim x As IList(Of Integer) = New List(Of Integer)(3) From { 4, 6, 8, 1, 9, 0, 7 }
Dim num As Integer = x(New Random().Next(x.Count))
Console.WriteLine(num)
End Sub
End Module
' run:
'
' 8
'