Private Function GeneriereSechserZufallsfolgen(ByVal N As Integer) As  _
        List(Of List(Of Integer))
        Dim lst As New List(Of List(Of Integer))
        For i As Integer = 1 To N
            lst.Add(GibSechsZahlen(1, 49, 6))
        Next i
        Return lst
    End Function

   Private Function GibSechsZahlen(ByVal zahlvon As Integer, ByVal zahlbis As _
        Integer, ByVal wievielkreuze As Integer) As List(Of Integer)

   Dim lst As List(Of List(Of Integer)) = GeneriereSechserZufallsfolgen(10)