Private Sub Command1_Click()
Dim a(10 To 100) As Boolean
Randomize
n = 0
While n < 50
x = Int(91 * Rnd) + 10
If Not a(x) Then
a(x) = True
n = n + 1
End If
Wend
n = 0
For i = 10 To 100
If a(i) Then
Picture1.Print i;
n = n + 1
If n Mod 10 = 0 Then Picture1.Print
End If
Next i
Picture1.Print
End Sub