[VB6] Permutazioni per trovare combinazioni di parole

[pierabo]

Ciao, il codice è semplicissimo, da perfezionare. Il form di esempio ha un TextBox, un ListBox, un tasto:

Private Sub Command1_Click()
  Dim IndParola
  Dim IndLit
  Dim Stringa As String
  List1.Clear
  
  For IndParola = 1 To Len(Text1.Text)
    Stringa = Stringa & Mid$(Text1.Text, IndParola, 1)
    For IndLit = Len(Text1.Text) To 1 Step -1
      If IndParola <> IndLit Then
        Stringa = Stringa & Mid$(Text1.Text, IndLit, 1)
      End If
    Next IndLit
    List1.AddItem Stringa
    Stringa = ""
  Next IndParola

End Sub