Imports System

Imports System.Collections.Generic

Imports System.Linq

Public Module Module1

    Private r As New Random()

    Public Sub Main()

        Dim questions() As String = {"Question 1: ...", "Question 2: ...", "Question 3: ...", "Question 4: ...", "Question 5: ...", "Question 6: ...", "Question 7: ...", "Question 8: ...", "Question 9: ...", "Question 10: ...", "Question 11: ...", "Question 12: ...", "Question 13: ...", "Question 14: ...", "Question 15: ...", "Question 16: ...", "Question 17: ...", "Question 18: ...", "Question 19: ...", "Question 20: ..."}

        Dim indices() As Integer = Enumerable.Range(0, questions.Length - 1).OrderBy(Function(i) r.Next()).Take(5).ToArray()

        Console.WriteLine(questions(indices(0)))

        Console.WriteLine(questions(indices(1)))

        Console.WriteLine(questions(indices(2)))

        Console.WriteLine(questions(indices(3)))

        Console.WriteLine(questions(indices(4)))

    End Sub

End Module