Dim rng As New System.Security.Cryptography.RNGCryptoServiceProvider
        Dim b(3) As Byte
        rng.GetBytes(b)
        Dim rni As Integer = BitConverter.ToInt32(b, 0)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist