Перебрать все возможные комбинации трех фигур

Dim variants As String = "ABC"
        For i As Byte = 0 To variants.Length - 1
            For j As Byte = 0 To variants.Length - 1
                For k As Byte = 0 To variants.Length - 1
                    Console.WriteLine("{0}-{1}-{2}", variants(i), variants(j), variants(k))
                Next
            Next
        Next

fill = "12345"
        For i = 1 To Len(fill)
            For o = i To Len(fill)
                ListBox1.Items.Add(Mid(fill, i, o))
 
            Next
 
        Next

Dim variants As String = "AAAAAAAABC"
        Dim str As String = ""
        ListBox4.Items.Clear()
        For q As Byte = 0 To variants.Length - 1
            For w As Byte = 0 To variants.Length - 1
                For a As Byte = 0 To variants.Length - 1
                    For r As Byte = 0 To variants.Length - 1
                        For t As Byte = 0 To variants.Length - 1
                            For y As Byte = 0 To variants.Length - 1
                                For u As Byte = 0 To variants.Length - 1
                                    For i As Byte = 0 To variants.Length - 1
                                        For o As Byte = 0 To variants.Length - 1
                                            For p As Byte = 0 To variants.Length - 1
                                                str = variants(q) & variants(w) & variants(a) & variants(r) & variants(t) & variants(y) & variants(u) & variants(i) & variants(o) & variants(p)
                                                ListBox4.Items.Add(str)
                                            Next
                                        Next
                                    Next
                                Next
                            Next
                        Next
                    Next
                Next
            Next
        Next
        Dim distColl = (From v In ListBox4.Items Select (v.ToString) Distinct).ToArray 'удаление повторяющихся вариантов
        ListBox4.Items.Clear()
        ListBox4.Items.AddRange(distColl)
        Label7.Text = "Вариантов: " & ListBox4.Items.Count