Public Function GetRandom(ByVal minimum As Integer, ByVal maximum As _
     Integer) As Integer
 
NochmalZufallszahlGenerieren:
 
        Try
            Dim nRandom As Integer
 
            Randomize()
            nRandom = CInt(minimum + (maximum - minimum + 1) * Rnd())
 
            While nRandom < minimum OrElse nRandom > maximum
                Randomize()
                nRandom = CInt(minimum + (maximum - minimum + 1) * Rnd())
            End While
 
            decRandomizeErgebnisZahl = nRandom
 
            'Wiederholungsprüfung der Zufallszahlen
 
            Try
                ZufallsZahlenPool(ZufallsZahlenPoolZAEHLER) = nRandom
 
 
                For i = 0 To ZufallsZahlenPool.Length
 
 
                    If ZufallsZahlenPool(i) = nRandom Then
 
                        GoTo NochmalZufallszahlGenerieren
                    End If
 
 
                Next
 
 
            Catch ex As Exception
 
 
            Finally
                ZufallsZahlenPoolZAEHLER = ZufallsZahlenPoolZAEHLER + 1
 
 
            End Try
 
            Return nRandom
        Catch ex As Exception
            MsgBox(ex.Message)
            Return minimum
        End Try
 
    End Function

Gruss
VIVAX

}
}
}

1:0 für Visual Basic.NET