Перемешать одномерный массив и вывести в случайном порядке без повторения

Option Explicit Off
Public Class Form1
 
 
    Dim arr() As String = {"НЕВЕРНЫЙ1", "НЕВЕРНЫЙ2", "НЕВЕРНЫЙ3", "НЕВЕРНЫЙ4", "НЕВЕРНЫЙ5"}
    Dim sts As New List(Of Integer)
 
 
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For i = 0 To arr.GetLength(0) - 1
            sts.Add(i)
        Next
    End Sub
 
   
 
    Public Sub wrong()
        If sts.Count Then
            Randomize()
            i = Fix(Rnd() * sts.Count)
            R = sts(i)
            sts.RemoveAt(i)
            ListBox1.Items.Clear()
 
            For i = 0 To 2
                Randomize()
                If R - i > -1 Then
                    Label2.Text = R - i
                    ListBox1.Items.Add(arr(R - i)) 'вывожу 
                Else
 
                End If
            Next
        Else
            MessageBox.Show("Все перебларл")
        End If
 
 
 
    End Sub
 
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        wrong()
    End Sub
 
End Class

Module Module1
 
    Public Structure Quesition
        Dim ques As String
        Dim isViewed As Boolean
    End Structure
 
    Sub Main()
 
        '   create array
        Dim VOPVOSNIC(4) As Quesition
 
        For i As Integer = 0 To 4
            With VOPVOSNIC(i)
                .ques = "Вопрос " & i
                .isViewed = False
            End With
        Next
 
        'getting rnd values
        Dim ques_empty As Boolean = False
        Do While Not ques_empty
            Dim index As Integer = CInt(Rnd() * 4)
            If VOPVOSNIC(index).isViewed = False Then
                Console.WriteLine(VOPVOSNIC(index).ques)
                VOPVOSNIC(index).isViewed = True
            End If
            For i As Integer = 0 To 4
                If VOPVOSNIC(i).isViewed = False Then ques_empty = False
            Next
        Loop
 
 
        Beep()
        '        Console.ReadLine
        Console.ReadLine()
    End Sub
 
End Module