Private Sub random(ByVal num As Integer, ByVal min As Integer, ByVal max As Integer)        Dim i As Integer = 1        Dim number As Integer        Dim numbers As String = ""        While i <= num            number = CInt(Rnd() * (max - min + 1) + 1)            While InStr(numbers, "'" + CStr(number) + "'") > 0                number = CInt(Rnd() * (max - min + 1) + 1)            End While            numbers += "'" + CStr(number) + "',"            i += 1        End While    End Sub