Public Function Zufallszahl(ByVal minZahl As Integer, ByVal MaxZahl As _
      Integer) As Integer
        Dim Randomizer As New Random(Now.Millisecond)
        Threading.Thread.CurrentThread.Sleep(15)
        Return Randomizer.Next(minZahl, MaxZahl + 1)
    End Function