' Sicherstellen, daß bei jedem Start wirklich
    ' eine neue Zufallszahlen-Folge generiert wird
    Randomize()
 
    ' Zufallszahlen-Klasse und ArrayList zum 
    ' Zwischenspeichern erstellen
    Dim oZahl As New System.Random
    Dim oList As New List(Of Integer)
    Dim Zahl As Integer
    Dim i As Integer
 
    ' Insgesamt 6 Zufallszahlen ermitteln
    For i = 1 To 6
      Do
        ' Zufallszahl im Bereich 1 bis 49
        Zahl = oZahl.Next(1, 50)
 
        ' Prüfen, ob Zufallszahl bereits gezogen
        If Not oList.Contains(Zahl) Then
          ' Falls nicht, jetzt als "gezogen" merken, 
          ' indem die Zahl der Liste hinzugefügt wird
          oList.Add(Zahl)
          Exit Do
        End If
      Loop
    Next i
 
    ' Lottozahlen anzeigen
    Dim sMsg As New System.Text.StringBuilder
    sMsg.Append("Die Lottozahlen lauten: ")
    For i = 0 To oList.Count - 1
      sMsg.Append(" " & oList(i))
    Next
    MsgBox(sMsg.ToString)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de