Задать случайный порядок вопросов в программе тестирования с помощью функции рандом

Public Class Form1
    Dim СчетВопросов As Integer ' Счет вопросов
    Dim ПравилОтветов As Integer ' Количество правильных ответов
    Dim НеПравилОтветов As Integer ' Количество неправильных ответов
    ' Массив вопросов, на которые даны неправильные ответы:
    Dim НеПравилОтветы() As String ' Размерность этого массива зададим позже
    Dim НомерПравОтвета As Integer ' Номер правильного ответа
    Dim ВыбранОтвет As Integer ' Номер ответа, выбранный студентом
    Dim Читатель As IO.StreamReader 'чтение потока(файла)ввод-вывод  
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "Следующий вопрос" 'текст на первой кнопке
        Button2.Text = "Выход"            'текст на второй
        ' Подписка на событие изменения состояния
        ' переключателей RadioButton:
        AddHandler RadioButton1.CheckedChanged, AddressOf Me.ИзмСостПерекл
        AddHandler RadioButton2.CheckedChanged, AddressOf Me.ИзмСостПерекл
        AddHandler RadioButton3.CheckedChanged, AddressOf Me.ИзмСостПерекл
        НачалоТеста()
    End Sub
    Sub НачалоТеста()
        Dim Кодировка = System.Text.Encoding.GetEncoding(1251) 'Представляет и возвращает кодировку символов идентификатора
        Try
            'Создание экземпляра StreamReader для чтения из файла
            Читатель = New IO.StreamReader(IO.Directory.GetCurrentDirectory() + "\test_полный.txt", Кодировка)
            Me.Text = Читатель.ReadLine() ' Название предмета
            ' Обнуление всех счетчиков:
            СчетВопросов = 0 : ПравилОтветов = 0 : НеПравилОтветов = 0
            ' Задаем размер массива для НеПравилОтветы:
            НеПравилОтветы = New String(100) {}
        Catch Ситуация As Exception 'функция Exception обеспечивает соответствующее сообщение об ошибке 
            'Отчет о всех ошибках:
            MessageBox.Show(Ситуация.Message, "Ошибка",
            MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End Try
        ЧитатьСледВопрос()
    End Sub
    Sub ЧитатьСледВопрос()
        Label1.Text = Читатель.ReadLine() 'считывание заданного вопроса
        'считывание вариантов ответа:
        RadioButton1.Text = Читатель.ReadLine()
        RadioButton2.Text = Читатель.ReadLine()
        RadioButton3.Text = Читатель.ReadLine()
        'Выясняем? какой ответ - правильный 
        НомерПравОтвета = Integer.Parse(Читатель.ReadLine())
        'Переводим все переключатели в состояние "выключено":
        RadioButton1.Checked = False
        RadioButton2.Checked = False
        RadioButton3.Checked = False
        ' Первую кнопку задаем не активной, пока студент не выберет
        ' вариант ответа
        Button1.Enabled = False
        СчетВопросов = СчетВопросов + 1
        'Проверка, конец ли файла:
        If Читатель.EndOfStream = True Then Button1.Text = "Завершить"
    End Sub
    Private Sub ИзмСостПерекл(ByVal sender As Object, ByVal e As EventArgs)
        'Кнопка "Следующий вопрос" становится активной и ей
        'передаем фокус
        Button1.Enabled = True : Button1.Focus()
        Dim Переключатель As RadioButton = sender
        Dim tmp = Переключатель.Name
        ' Выясняем номер ответа, выбранный студентом:
        ВыбранОтвет = Integer.Parse(tmp.Substring(11))
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Следующий шелчок по кнопке
        '"Следующий вопрос/Завершить/Начать тестирование снач
        'Счет правильных ответов:
        If ВыбранОтвет = НомерПравОтвета Then _
ПравилОтветов = ПравилОтветов + 1
        If ВыбранОтвет <> НомерПравОтвета Then
            ' Счет неправильных ответов:
            НеПравилОтветов = НеПравилОтветов + 1
            ' Запоминаем вопросы с неправильными ответами:
            НеПравилОтветы(НеПравилОтветов) = Label1.Text
        End If
        If Button1.Text = "Начать тестирование сначало" Then
            Button1.Text = "Следующий вопрос"
            'Перекллючатели становятся видимыми,доступными для выбора:
            RadioButton1.Visible = True
            RadioButton2.Visible = True
            RadioButton3.Visible = True
            'Переход к началу файла
            НачалоТеста() : Return ' или End Sub
        End If
        If Button1.Text = "Завершить" Then
            'Закрываем текстовый файл:
            Читатель.Close()
            ' Переключатели делаем невидимыми:
            RadioButton1.Visible = False
            RadioButton2.Visible = False
            RadioButton3.Visible = False
            ' Формируем оценку за тест:
            Label1.Text = String.Format("Тестирование завершено." + vbCrLf +
                                        "Правильных ответов:{0} из {1}." + vbCrLf +
"Оценка в пятибалльной системе: {2:F2}.", ПравилОтветов,
СчетВопросов, (ПравилОтветов * 5.0F) / СчетВопросов)
            ' 5F — это максимальная оценка
            Button1.Text = "Начать тестирование сначала"
            ' Вывод вопросов, на которые "Вы дали неправильный ответ":
            Dim Str = "СПИСОК ВОПРОСОВ, НА КОТОРЫЕ ВЫ ДАЛИ " +
            "НЕПРАВИЛЬНЫЙ ОТВЕТ:" + vbCrLf + vbCrLf
            For i = 1 To НеПравилОтветов
                Str = Str + НеПравилОтветы(i) + vbCrLf
            Next
            ' Если есть неправильные ответы, то вывести через
            ' MessageBox список соответствующих вопросов:
            If НеПравилОтветов <> 0 Then MessageBox.
            Show(Str, "Тестирование завершено")
        End If ' Конец условия If Button1.Text = "Завершить"
        If Button1.Text = "Следующий вопрос" Then ЧитатьСледВопрос()
    End Sub
    Private Sub Button2_Click(ByVal sender As Object,
    ByVal e As EventArgs) Handles Button2.Click
        ' Щелчок на кнопке "Выход"
        Me.Close()
    End Sub
End Class

Public Structure qq
    Public ques As String
    Public answer1 As String
    Public answer2 As String
    Public answer3 As String
    Public answerRight As Integer
End Structure

Public testing() As qq

Dim rnd As New Random
Dim n As Integer = testing.Length - 1
Dim test As qq

test = testing(rnd.Next(0, n))