Dim aTexte(3) As String
 
' diese rekursive Funktion wird für jede Stelle des Ergebnisses aufgerufen
Private Sub Recursive(ByVal sCurText As String, ByVal iIndex As Integer)
  Dim sSplitted() As String
  Dim i As Integer
  If iIndex > UBound(aTexte) Then
    ' Ende erreicht
    List1.AddItem Left(sCurText, Len(sCurText) - 1)
  Else
    ' alle Möglichkeiten durchgehen
    For i = 0 To UBound(aTexte)
        ' nächste Stelle
        Recursive sCurText & aTexte(i) & "=", iIndex + 1
    Next
  End If
End Sub
 
Private Sub Command1_Click()
  List1.Clear
  Recursive "", 0
End Sub
 
Private Sub Form_Load()
  aTexte(0) = " "
  aTexte(1) = "abc"
  aTexte(2) = "123"
  aTexte(3) = "1-2-2003"
End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.