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)
 
            Dim k As Integer
            Dim sAusgabestring As String
            sAusgabestring = ""
 
            For k = TextBox2.Text To TextBox3.Text
                If k = zahl Then
                    sAusgabestring = sAusgabestring & CStr(zahl)
                End If
            Next k
 
            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

-----

-.-