Min slutliga lösning.
Option Explicit On
Public Class Form1
Private selectedNumbers As List(Of Integer)
Private rand As Random
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
rand = New Random
selectedNumbers = New List(Of Integer)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
RandomNrExamle()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If selectedNumbers.Count = 0 Or selectedNumbers Is Nothing Then
Console.WriteLine("No numbers present")
Else
Console.WriteLine(selectedNumbers(0).ToString & " Removed")
selectedNumbers.RemoveAt(0)
End If
End Sub
Private Sub RandomNrExamle()
Dim allNumbers As New List(Of Integer)(Enumerable.Range(1, 6))
selectedNumbers = New List(Of Integer)
For i As Integer = 0 To 5
Dim index As Integer = rand.Next(0, allNumbers.Count)
Dim selectedNumber As Integer = allNumbers(index)
selectedNumbers.Add(selectedNumber)
allNumbers.RemoveAt(index)
Next
For Each i As Integer In selectedNumbers
Console.WriteLine(i)
Next
End Sub
End Class