Программа-тест. Как менять надписи Label от вопроса к вопросу - VB

Формулировка задачи:

Visual Basic. Подскажите пожалуйста как решить задачу. Есть несколько лейболов как сделать так что бы при нажатии на кнопку далее открывался следующий лейбл а при нажатии на кнопку предыдущий соответственно предыдущий лейбл. При этом порядок следования лейблов при новом открытии программы изменялся ??? если можно то код. Спасибо )

Решение задачи: «Программа-тест. Как менять надписи Label от вопроса к вопросу»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Dim txt, nQ As Integer
 
Private Sub Command1_Click()
    NextPrev 1
End Sub
 
Private Sub Command2_Click()
    NextPrev -1
End Sub
 
Private Sub Form_Load()
    txt = Array("Первый", "Второй", "Третий", "Четвертый", "Пятый", "Шестой", "Седьмой")
    Randomize
    Unsort txt
    Label1.Caption = txt(nQ)
End Sub
 
Private Sub NextPrev(ByVal n As Integer)
    nQ = nQ + n
    If nQ > UBound(txt) Then nQ = 0 Else If nQ < 0 Then nQ = UBound(txt)
    Label1.Caption = txt(nQ)
End Sub
 
Private Sub Unsort(List)
    Dim i As Long, pos As Long, tmp, min As Long, max As Long
    min = 0: max = UBound(List)
    For i = min To max - 1
        pos = Int((max - i + 1) * Rnd + i)
        tmp = List(pos)
        List(pos) = List(i)
        List(i) = tmp
    Next i
End Sub