Private Function GibCollectionsInhalt(ByVal anzahl_n As Integer, ByVal _
      wievielkreuze As Integer, ByVal zahlbis As Integer, ByVal zahlvon As _
      Integer) As Collection
 
 
        Dim cAktuelleCollection As New Collection
        Dim CollectionZahlen(100) As Integer
 
 
        Dim k As Integer
        Dim j As Integer
        Dim i As Integer
        For i = 1 To anzahl_n
 
            cAktuelleCollection = cGemerkteCollections.Item(i)
 
            For j = zahlvon To zahlbis
 
                For Each k In cAktuelleCollection
 
                    CollectionZahlen(100) = CollectionZahlen(j) + 1
 
                Next k
 
            Next j
        Next i
 
 
 
    End Function

cAktuelleCollection = cGemerkteCollections.Item(i)

-----

-.-

Beitrag wurde zuletzt am 14.10.10 um 13:02:57 editiert.