Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 'hasutableģ¬
        Dim hikisu(9) As Integer
        Dim mentutatu(1) As Integer
        Dim mentutatu2(1) As Integer
        Dim kekkadesuyo(20) As List(Of String)
        Dim tmpmaisu As Integer = 0
        Dim maxmaisu As Integer = 8
        Dim tmpmoji As String = ""
        Dim skip As Boolean = False
        For i As Integer = 1 To 20
            kekkadesuyo(i) = New List(Of String)()
            kekkadesuyo(i).Clear()
        Next
        For i1 As Integer = 1 To 4
            tmpmaisu = i1
            For i2 As Integer = 0 To 4
                tmpmaisu += i2
                For i3 As Integer = 0 To Math.Min(4, maxmaisu - tmpmaisu)
                    tmpmaisu += i3
                    For i4 As Integer = 0 To Math.Min(4, maxmaisu - tmpmaisu)
                        tmpmaisu += i4
                        For i5 As Integer = 0 To Math.Min(4, maxmaisu - tmpmaisu)
                            tmpmaisu += i5
                            For i6 As Integer = 0 To Math.Min(4, maxmaisu - tmpmaisu)
                                tmpmaisu += i6
                                For i7 As Integer = 0 To Math.Min(4, maxmaisu - tmpmaisu)
                                    tmpmaisu += i7
                                    For i8 As Integer = 0 To Math.Min(4, maxmaisu - tmpmaisu)
                                        tmpmaisu += i8
                                        For i9 As Integer = 0 To Math.Min(4, maxmaisu - tmpmaisu)
                                            skip = False
                                            If i9 >= 1 And i8 = 0 And i7 = 0 Then
                                                skip = True
                                            End If
                                            If i8 >= 1 And i7 = 0 And i6 = 0 Then
                                                skip = True
                                            End If
                                            If i7 >= 1 And i6 = 0 And i5 = 0 Then
                                                skip = True
                                            End If
                                            If i6 >= 1 And i5 = 0 And i4 = 0 Then
                                                skip = True
                                            End If
                                            If i5 >= 1 And i4 = 0 And i3 = 0 Then
                                                skip = True
                                            End If
                                            If i4 >= 1 And i3 = 0 And i2 = 0 Then
                                                skip = True
                                            End If
                                            If Not skip Then
                                                hikisu(1) = i1
                                                hikisu(2) = i2
                                                hikisu(3) = i3
                                                hikisu(4) = i4
                                                hikisu(5) = i5
                                                hikisu(6) = i6
                                                hikisu(7) = i7
                                                hikisu(8) = i8
                                                hikisu(9) = i9
                                                If i1 = 2 And i2 = 2 And i3 = 2 And i4 = 0 And i5 = 0 And i6 = 0 And i7 = 0 And i8 = 0 And i9 = 0 Then
                                                    i1 = i1
                                                End If
                                                mentutatu = mentu_cut2(hikisu, 1, 0)

                                                tmpmoji = mentutatu(0) & mentutatu(1) & " " & i3 & i4 & i5 & i6 & i7 & i8 & i9
                                                kekkadesuyo(i1 + 4 * i2).Add(tmpmoji)
                                            End If
                                        Next
                                        tmpmaisu -= i8
                                    Next
                                    tmpmaisu -= i7
                                Next
                                tmpmaisu -= i6
                            Next
                            tmpmaisu -= i5
                        Next
                        tmpmaisu -= i4
                    Next
                    tmpmaisu -= i3
                Next
                tmpmaisu -= i2
            Next
        Next
        ListBox1.Items.Clear()
        For i As Integer = 1 To 20
            ListBox1.Items.Add(i)
            For Each c In kekkadesuyo(i)
                ListBox1.Items.Add(c)
            Next
            ListBox1.Items.Add("")
        Next

    End Sub