Is there any way to get unique numbers for a label?

Question

Im writing a lottery code and would like to know if there is anyway to get my 6 numbers in my label to be different
this is my code so far
Public Class frmMain
Private randGen As New Random
Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
Me.Close()
End Sub
Private Sub btnSelect_Click(sender As Object, e As EventArgs) Handles btnSelect.Click
Dim intNum1 As Integer
Dim intNum2 As Integer
Dim intNum3 As Integer
Dim intNum4 As Integer
Dim intNum5 As Integer
Dim intNum6 As Integer
intNum1 = randGen.Next(1, 54)
intNum2 = randGen.Next(1, 54)
intNum3 = randGen.Next(1, 54)
intNum4 = randGen.Next(1, 54)
intNum5 = randGen.Next(1, 54)
intNum6 = randGen.Next(1, 54)
lblNumbers.Text = String.Format("{0}, {1}, {2}, {3}, {4}, {5}", intNum1, intNum2, intNum3, intNum4, intNum5, intNum6)
End Sub
End Class

Answer 1

Here's one way using nested For loops.  This was tested and it works.  It will select 6 different unique numbers between 1 - 54. 
Private Sub btnOK_Click(sender As System.Object, e As System.EventArgs) Handles btnOK.Click
Dim num As Integer, dup As Boolean = False
Dim randnum As New Random()
Dim strand As String = ""
Dim itm As String = ""
For x As Integer = 1 To 6
For y As Integer = 1 To 6
num = randnum.Next(1, 55)
itm = num.ToString()
If strand.Contains(itm) Then
dup = True
x = x - 1
Exit For
End If
Next y
If dup = False Then strand &= itm & " "
dup = False
Next x
lblRandom.Text = strand
End Sub
Here is another way using the Shuffle Sort algorithm with an array:
Private Sub btnShuffle_Click(sender As System.Object, e As System.EventArgs) Handles btnShuffle.Click
Dim mix, temp As Integer
Dim randnum As New Random
Dim strand(54) As Integer
lblRandom.Text = ""
For x As Integer = 1 To 54
strand(x) = x
Next
For x As Integer = 1 To 54
mix = randnum.Next(1, 55)
temp = strand(mix)
strand(mix) = strand(x)
strand(x) = temp
Next
For x As Integer = 1 To 6
lblRandom.Text &= strand(x).ToString & " "
Next
End Sub
Solitaire