funcionpara generar numeros aleatorios nunca iguales VB.NET

[meula]

Private Function genera(ByVal max As Integer, Optional ByVal zero As Boolean = False) As Integer
Dim randNumber as New Random(DateTime.Now.Millisecond)

if zero=true then return 0

return randNumber .Next(0, max)
end function