Public Class form1
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim myLottoZahlen As New Collection
 
        myLottoZahlen = GibSechsZahlen()
 
        Dim sAusgabeString As String
 
        sAusgabeString = ""
 
        TextBox1.Text = sAusgabeString
    End Sub
 
 
    Private Function GibSechsZahlen() As Collection
 
 
        ' Initialize den random-number generator.
        Randomize()
        ' Generiere zufällige Zahl zwischen 1 und 6.
        Dim zahl As Integer
        Dim i As Integer
        Dim cLottoZahlen As New Collection                      'Mit einem 
        ' Collection-Objekt von Visual Basic lässt sich auf eine  
        For i = 1 To 6                                          _
          'zusammenhängende Gruppe von Elementen bequem in Form eines einzelnen 
        ' Objekts verweisen.
 
 
            Dim bbadinteger As Boolean = False
            zahl = GibLottoZahl()
            MessageBox.Show("LOTTOZAHL:" & zahl)
 
            If cLottoZahlen.Count > 0 Then
                Dim j As Integer
                For j = 1 To cLottoZahlen.Count
                    If cLottoZahlen.Item(j) = zahl Then
                        bbadinteger = True
                        Exit For
                    End If
                Next j
            End If
 
 
            If bbadinteger = True Then
                'zurueck zum Anfang, damit wir eine neue Zahl bekommen!
                i = i - 1
            Else
                cLottoZahlen.Add(zahl)
            End If
 
        Next i
 
        Return cLottoZahlen
    End Function
 
 
    Private Function GibLottoZahl() As Integer
        Return CInt(Int((49 * Rnd()) + 1))
    End Function
End Class

-----

-.-