Hi philbell,

Draw one ListBox control on your form and
name it List1.
(later on, you can change the list box into
array or any other thing)

Dim intValue As Integer
Dim intFrom As Integer
Dim intTo As Integer
Dim intOuter As Integer
Dim intInner As Integer
Dim blnExist As Boolean

Randomize

intFrom = 1
intTo = 6

Me.List1 = ""
While intOuter <= (intTo - intFrom)
intValue = Int((intTo * Rnd) + intFrom)
blnExist = False
For intInner = 0 To (Me.List1.ListCount - 1)
If (Me.List1.List(intInner) = intValue) Then
blnExist = True
Exit For
End If
Next intInner
If (Not blnExist) Then
Me.List1.AddItem intValue
intOuter = intOuter + 1
End If
Wend

Does it help ?

Regards