Private Sub LottoZahlen1()
    'Array für alle 49 Zahlen (Index 0 wir nicht benutzt).
    Dim Zufall(49) As Integer
    '--------------------------------------------
    'Array mit allen Zahlen von 1 bis 49 füllen.
    For i = 1 To 49
      Zufall(i) = i
    Next
    '--------------------------------------------
    'Alle Zahlen im Array mischen.
    'ab 25000 Mischvorgänge sind die Zahlen wirklich zufällig.
    Randomize()
    Dim zuf1, zuf2, zw As Integer
    For i = 1 To 25000
      zuf1 = CInt(Int(49 * Rnd())) + 1 'erste Zufallszahl (Index für's Array)
      zuf2 = CInt(Int(49 * Rnd())) + 1 'zweite Zufallszahl (Index für's Array)
      'Zahlen vertauschen
      zw = Zufall(zuf1)
      Zufall(zuf1) = Zufall(zuf2)
      Zufall(zuf2) = zw
    Next
    '--------------------------------------------
    'Die ersten 6 Zahlen in ein neues Array kopieren und sortieren.
    Dim Ergebnisse(5) As Integer
    Array.Copy(Zufall, 1, Ergebnisse, 0, 6)
    Array.Sort(Ergebnisse)
    '--------------------------------------------
    'Anzeige der 6 Zahlen
    Label1.Text = Ergebnisse(0).ToString
    Label2.Text = Ergebnisse(1).ToString
    Label3.Text = Ergebnisse(2).ToString
    Label4.Text = Ergebnisse(3).ToString
    Label5.Text = Ergebnisse(4).ToString
    Label6.Text = Ergebnisse(5).ToString
  End Sub

  Private Sub LottoZahlen2()
    'Ein Array mit allen 49 Zahlen erstellen (Index 0 bis 48).
    Dim Zufall = Enumerable.Range(1, 49).ToArray
    '--------------------------------------------
    'Alle Zahlen im Array mischen.
    'ab 25000 Mischvorgänge sind die Zahlen wirklich zufällig.
    Dim rnd As New Random, zuf1, zuf2, zw As Integer
    For i = 1 To 25000
      zuf1 = rnd.Next(49) 'erste Zufallszahl (Index für's Array)
      zuf2 = rnd.Next(49) 'zweite Zufallszahl (Index für's Array)
      'Zahlen vertauschen
      zw = Zufall(zuf1)
      Zufall(zuf1) = Zufall(zuf2)
      Zufall(zuf2) = zw
    Next
    '--------------------------------------------
    'Die ersten 6 Zahlen in ein neues Array kopieren und sortieren.
    Dim Ergebnisse = Zufall.Take(6).OrderBy(Function(x) x).ToArray
    '--------------------------------------------
    'Anzeige der 6 Zahlen
    Label1.Text = Ergebnisse(0).ToString
    Label2.Text = Ergebnisse(1).ToString
    Label3.Text = Ergebnisse(2).ToString
    Label4.Text = Ergebnisse(3).ToString
    Label5.Text = Ergebnisse(4).ToString
    Label6.Text = Ergebnisse(5).ToString
  End Sub