Программа для тестов: Как размещать ответы на форме в произвольном порядке

    Dim a1, a2, a3, a4, a5 As Integer
    Dim part As Array = {3, 43, 83, 123, 163}
    'Массив с координатами батонов по вертикали
    'Числа в зависимости от расположения батонов
    'Помним что индекс массива начинается с 0
    'То бишь 0,1,2,3,4 - 5 батонов
    Private Sub gen0()'Смена мест расположения батонов 1 вариант
    Dim a1, a2, a3, a4, a5 As Integer
    Dim part As Array = {3, 43, 83, 123, 163}
    Private Sub gen0()
        a1 = Int(Rnd() * 5)
        Do
            a2 = Int(Rnd() * 5)
            Do
                a3 = Int(Rnd() * 5)
                Do
                    a4 = Int(Rnd() * 5)
                    Do
                        a5 = Int(Rnd() * 5)
                    Loop Until a5 <> a4 And a5 <> a3 And a5 <> a2 And a5 <> a1
                Loop Until a4 <> a3 And a4 <> a2 And a4 <> a1
            Loop Until a3 <> a1 And a3 <> a2
        Loop Until a2 <> a1
        Button1.Top = part(a1)
        Button2.Top = part(a2)
        Button3.Top = part(a3)
        Button4.Top = part(a4)
        Button5.Top = part(a5)
    End Sub
    Private Sub gen1()'Смена мест расположения батонов 2 вариант
        a1 = Int(Rnd() * 5)
        Button7.Top = part(a1)
0:      a2 = Int(Rnd() * 5)
        If a2 <> a1 Then
            Button8.Top = part(a2)
1:          a3 = Int(Rnd() * 5)
            If a3 <> a1 And a3 <> a2 Then
                Button9.Top = part(a3)
2:              a4 = Int(Rnd() * 5)
                If a4 <> a3 And a4 <> a2 And a4 <> a1 Then
                    Button10.Top = part(a4)
3:                  a5 = Int(Rnd() * 5)
                    If a5 <> a4 And a5 <> a3 And a5 <> a2 And a5 <> a1 Then
                        Button11.Top = part(a5)
                    Else
                        GoTo 3
                    End If
                Else
                    GoTo 2
                End If
            Else
                GoTo 1
            End If
        Else
            GoTo 0
        End If
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        gen0()
        gen1()
    End Sub
    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        gen0()
        gen1()
    End Sub
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Timer1.Enabled = Not Timer1.Enabled
        If Timer1.Enabled = True Then
            Button6.Text = "STOP"
        Else
            Button6.Text = "START"
        End If
    End Sub
    Private Sub Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Randomize()
    End Sub