Public Class Form1

    Const amount As Integer = 7 ' 7 numbers
    Dim check As Boolean  'check for repeats
    Dim store As Integer 'temporarily storing numbers

    Dim value(amount) As Integer 'store random numbers


    Private Sub Generator_Click(sender As Object, e As EventArgs) Handles Generator.Click
        For i = 0 To amount - 1 'randomize all numbers

            check = False
            Do While check <> True

                store = Int(7 * Rnd()) + 1

                check = True
                For j = 0 To i
                    If value(j) = store Then
                        check = False
                    End If

                Next

            Loop
            value(i) = store



        Next i

        Red_Circle1.Text = value(0)
        Red_Circle2.Text = value(1)
        Red_Circle3.Text = value(2)
        Red_Circle4.Text = value(3)
        Red_Circle5.Text = value(4)
        Green_Circle1.Text = value(5)
        Green_Circle2.Text = value(6)

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Randomize()
    End Sub
End Class