Вывод вопросов в случайном порядке

Option Explicit Off
 
 
 
Public Class Form1
    Dim arr(,) = {{"Сколько будет 2x2", "0|1|2|4", "2"}, {"А сколько 5 x 5", "5|25|6|4", "25"}, {"КАК тебя зовут", "Данир|Гузель|Дамир|Йолдыз", "Данир"}}
    Public R
    Public sum = 0
 
    Public Sub lol() 'Обработчик вопросов
        N = 0
        M = arr.Rank
        Randomize() 'Полчаем новое значение
        R = N + Fix(Rnd() * (M - N + 1)) ' Рандомное знаечние
        Label1.Text = arr(R, 0) 'Выводим вопрос
 
        ListBox1.Items.Clear()
        For i = 0 To 3 'Выводим вопросы в ListBox
            ListBox1.Items.Add(Split(arr(R, 1), "|")(i))
        Next i
 
        
    End Sub
 
    Public Sub isTrue() 'Обрабтчик ответа
        If ListBox1.SelectedItem = arr(R, 2) Then
            MsgBox("Правильно")
            sum = sum + 1
            Label3.Text = sum
            Call lol()
        Else
            MsgBox("НЕТ")
        End If
    End Sub
 
    Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        lol()
    End Sub
 
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        isTrue() 'Обрбатываем ответ
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lol()
    End Sub
 
 
End Class

Private listNumber As New List(Of Integer)
...
     Public Sub lol()
        If listNumber.Count Then
            Randomize() 'Полчаем новое значение
            i = Fix(Rnd() * listNumber.Count) ' Рандомное знаечние
            R = listNumber(i)   ' игдекс элемента массива
            listNumber.RemoveAt(i)  ' удаляем из списка
            Label1.Text = arr(R, 0) 'Выводим вопрос
            ListBox1.Items.Clear() 'Очищаем список
            ListBox1.Items.AddRange(Split(arr(R, 1), "|"))
        Else
            ' все вопросы заданы
        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i = 0 To arr.GetLength(0)-1
            listNumber.Add(i)
        Next
        lol()
    End Sub