Public Interface ICombina
 
    ''' <summary>
    ''' Cantidad de valores enumerados.
    ''' </summary>
    ReadOnly Property Cantidad As UInt32
 
    ''' <summary>
    ''' Recrea el array de las combinaciones al inicio.
    ''' </summary>   
    Sub Enumerar()
 
    ''' <summary>
    ''' Decodifica el valor enumerado en la posicion indicada, a 6 pares de valores numericos.
    ''' </summary>
    ''' <param name="Index">Indice de la enumeracion solicitado</param>
    ''' <param name="Decenas">Array de los digitos que (ademas) pueden actuar como decenas</param>
    ''' <param name="Unidades">Array de los digitos que solo pueden actuar como unidades</param>
    ''' <returns>Devuelve la combinacion con las 6 apuestas separadas por ', '"</returns>
    Function Tranformar(ByVal Index As Int32, ByRef Decenas() As Byte, ByRef Unidades() As Byte) As String
End Interface
 

    <Extension()>
    Public Function EnRango(ByVal Valor As Byte, ByVal Minimo As Byte, ByVal Maximo As Byte) As Boolean
        Return ((Valor >= Minimo) And (Valor <= Maximo))
    End Function
    <Extension()>
    Public Function EnRango(ByVal Valor As Char, ByVal Minimo As Byte, ByVal Maximo As Byte, ByVal Tope As Byte) As Boolean
        Dim asci As Byte = (Strings.Asc(Valor) - Tope)
        Return ((asci >= Minimo) And (asci <= Maximo))
    End Function
 
 
    Public Function EnumeraComb(ByRef Inicio As String, ByRef Final As String, ByVal Cantidad As UInteger) As String()
        Dim k As UInt32 = 0
        Dim Combina As String = Inicio
        Dim Maxchar As Byte = IndexLastChar(Inicio, Final) ' Final.Chars(Final.Length-1)
        Dim Permutas(0 To Cantidad - 1) As String
        Dim digitos(0 To 5) As Byte, n As Byte = 0
 
        For k = 0 To 5
            digitos(k) = k
        Next
 
        k = 0
        Do
            Permutas(k) = Combina
            If (digitos(5) = Maxchar) Then
                n = 4
                Do While Combina.Chars(n) = Combina.Chars(n + 1).Previo   '    digitos(n) = digitos(n + 1) - 1
                    n -= 1
                Loop
 
                digitos(n) += 1
                For n = n + 1 To 5
                    digitos(n) = digitos(n - 1) + 1
                Next
 
                Combina = "" ' 0
                For n = 0 To 5
                    Combina &= CharIndexAZ(digitos(n)) ' * (10 ^ (5 - n))
                Next
            Else
                Combina = Combina.NextComb()
                digitos(5) += 1
            End If
            k += 1
        Loop While (Combina < Final)
        Permutas(k) = Combina
 
        Return Permutas
    End Function
 
#Region "Las siguiente funciones y extensiones son solo de ayuda para la función anterior (enumerar)."
    <Extension()>
    Private Function NextComb(ByRef Combina As String) As String
        Dim Last As Byte = Asc(Combina.Chars(5))  ' ojo Estamos usando siempre longitudes de 6 caracteres.
        Return Strings.Left(Combina, 5) & Strings.Chr(Last + 1)
    End Function
 
    ''' <summary>
    ''' Calcula el caracter previo en la secuencia ASCII.
    ''' </summary>
    ''' <param name="Ch">Caracter en el rango A-Z</param>
    ''' <returns>Devuelve el carácter previo al dado (en la secuencia ASCII).</returns>
    ''' <remarks></remarks>
    <Extension()>
    Private Function Previo(ByRef Ch As Char) As Char
        Dim n As Byte = Strings.Asc(Ch) - 1
        Return Strings.Chr(n)
    End Function
 
    Private Function CharIndexAZ(ByRef Index As Byte) As Char
        Return Strings.Chr(65 + Index)
    End Function
 
    ' Devuelve la distancia entre el primer caracter de inicio y el último de 'final'
    ' Ejemplo: "'A'BCDEF" "EFGHI'J'" = 10;  "'A'BCDEF" "MNOPQ'R'" = 17
    Private Function IndexLastChar(ByRef Inicio As String, ByRef Final As String) As Byte
        Dim F As Byte = Strings.Asc(Final.Chars(Final.Length - 1))
        Dim I As Byte = Strings.Asc(Inicio.Chars(0))
 
        Return (F - I)
    End Function
#End Region
 

call Ordenar(elArray, parametro1, parametro2)

elArray.Odenar(parametro1, parametro2)

Public Class Form1
    Private perm24, perm33, perm42, perm51,perm60 As ICombina
    Private Decenas() As Byte, Unidades() As Byte
 
    Public Sub New()
        InitializeComponent()
        ' Crear las instancias una única vez.
        perm24 = New Permutas2_4
        perm33 = New Permutas3_3
        perm42 = New Permutas4_2
        perm51 = New Permutas5_1
        perm60 = New Permutas6_0
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Nums() As String, txt As String
        Dim k As UInt16, n As Byte
        Dim Permuta As ICombina
 
        txt = TextBox1.Text.Replace(" ", "")
        Nums = txt.Split(",")
        If (Nums.Length = 6) Then
            Array.Sort(Nums)
            Do While (Nums(n).Chars(0).EnRango(0, 4, 48) = True) And (n < 5)
                n += 1
            Loop
 
            If (n.EnRango(1, 5) = True) Then
                ReDim Decenas(0 To n - 1)
                ReDim Unidades(0 To 6 - n - 1)
 
                For k = 0 To n - 1
                    Decenas(k) = System.Byte.Parse(Nums(k))
                Next
                For k = n To 5
                    Unidades(k - n) = System.Byte.Parse(Nums(k))
                Next
 
                Select Case n
                    Case 2 : Permuta = perm24
                    Case 3 : Permuta = perm33
                    Case 4 : Permuta = perm42
                    Case 5 : Permuta = perm51
                    case  6: Permuta = perm60
                End Select
 
                ListBox1.Items.Clear()
                For j = 0 To Permuta.Cantidad - 1
                    ListBox1.Items.Add(Permuta.Tranformar(j, Decenas, Unidades))
                Next
                Label3.Text = "Cantidad en lista: " & Permuta.Cantidad.ToString ' ListBox1.Items.Count.ToString
            Else
                MessageBox.Show("No se puede generar combinaciones si no hay 2-5 dígitos menores de 5.")
            End If
        Else
            MessageBox.Show("No, no no... Debe haber 6 y solo 6 numeros, separados por 1 coma...")
        End If
    End Sub
End Class
 

 
Friend Class Permutas2_4
    Implements ICombina
 
    Const MAX_COMBINAS As UInt16 = 210
    Private s_Combinas() As String     ' UInt32
 
    Public Sub New()
        Call Enumerar()
    End Sub
 
    Public ReadOnly Property Cantidad As UInteger Implements ICombina.Cantidad
        Get
            Return MAX_COMBINAS
        End Get
    End Property
 
    ' Para generar las permutaciones, delega en la función que yace en el módulo.
    Private Sub Enumerar() Implements ICombina.Enumerar
        '             combinacion inicial, final, Total combinaciones
        s_Combinas = EnumeraComb("ABCDEF", "EFGHIJ", MAX_COMBINAS)
    End Sub
 
    ' Alfabeto = X,Y,   R,S,T,U
    '  A   B   C   D   E      F   G   H   I   J 
    '  XY  XR  XS  XT  XU     YR  YS  YT  YU  YX            
    Public Function Tranformar(ByVal Index As Integer, ByRef Decenas() As Byte, ByRef Unidades() As Byte) As String Implements ICombina.Tranformar
        Dim permuta As String = s_Combinas(Index)
        Dim s(0 To 5) As String, valor As String = ""
        Dim x As Byte = 0, k As Byte
 
        For k = 0 To 5
            x = (Strings.Asc((permuta.Chars(k))) - 65)
 
            Select Case x
                Case 0 : x = ((Decenas(0) * 10) + Decenas(1))
                Case 1 To 4 : x = ((Decenas(0) * 10) + Unidades(x - 1))
                Case 5 To 8 : x = ((Decenas(1) * 10) + Unidades(x - 5))
                Case 9 : x = ((Decenas(1) * 10) + Decenas(0))
            End Select
 
            If (x < 10) Then s(k) = "0" & x.ToString Else s(k) = x.ToString
        Next
 
        Array.Sort(s)
        Return Join(s, ", ")
    End Function
End Class
 

txt = TextBox1.Text.Replace(" ", "") 
Nums = txt.Split(",")
 

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    Textbox1.text = ""
    OtroTextbox.Text =""
    txtboxNumero.text = ""
    txtBoxCantidad.text=""
    ' ...
end sub
 

private ColTxtBox as new collection
 
private sub New(...)
    call InitializeComponent
 
    call AddTextBoxToCollection '<--- OJO: No antes de InitializeComponent
end sub
 
private sub AddTextBoxToCollection
    ColTxtBox.add(Textbox1)
    ColTxtBox.add(OtroTextbox)
    ColTxtBox.add(txtboxNumero)
    ColTxtBox.add(txtBoxCantidad)
    '...
end sub
 
' Cuando deban ser borrados:
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
   dim txtbox as textbox
 
    for each txtbox in ColTxtBox
        txtbox.text = "" 
    next
end sub
 

Module Module1
    Public ResetApp As Boolean
 
    Public Sub Main()
        Dim frm As Form1
 
        Do
            ResetApp = False        ' Si no se indica exprofeso, se cierra la app...
            frm = New Form1         ' crea la nueva ventana
            frm.ShowDialog()        ' la carga y hasta que no se cierre, no se ejecutará la siguiente línea de código.
            frm = Nothing           ' elimina el contenido actual
        Loop While (ResetApp = True)
    End Sub
End Module

Public Class Form1
    Private Permuta As New Permutaciones
    Private Decenas(2) As Byte, Unidades(4) As Byte
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Module1.ResetApp = True
        Me.Close()
    End Sub
 
    ' ...
 

   ...
 
        Public Sub New()
            Dim combina As UInteger = 12345       ' combinacion inicial -----------NO ENTIENDO ESTO YA QUE LOS NUMEROS DE LAS DECENAS NO PUEDEN PASAR DEL 4
            Dim final As UInteger = 456789           '  combinación final --------------???????????????
 

 
       Public ReadOnly Property Permuta(ByVal X As UInt16)
            Get
                Return s_Combinas(X)
            End Get
        End Property
    End Class
 
    ' Mostras la lista de permutaciones en el listbox.... va en conjunto con la propiedad 'Permuta' de la clase permutaciones.
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim k As UInt16, j As UInt32, s As String = ""
 
        ListBox1.Items.Clear()
        For k = 0 To Permuta.Cantidad - 1
            j = (Permuta.Permuta(k))
            If (j < 123456) Then s = "0" & j.ToString Else s = j.ToString
            ListBox1.Items.Add(s)
        Next
    End Sub
End Class
 

dim dia as string 
 
dia = DecodificarDia(3)
messagebox.show(dia)
 
function DecodificarDia(byval D as byte) as string
    Select case D
        case 1: devolver "Lunes"
        case 2: devolver "Martes"
        case 3: devolver "Miércoles"
        case 4: devolver "Jueves"
        case 5: devolver "Viernes"
        case 6: devolver "Sábado"
        case 7: devolver "Domingo"
        case else: devolver "Error, no existe el día: " & d.tostring
    end select
end function 

Imports System.Text
 
Public Class Form1
    Private Permuta As New Permutaciones
    Private Decenas(2) As Byte, Unidades(4) As Byte
 
 
    ' El botón de la interfaz...
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Nums() As String, txt As String
        Dim k As UInt16
 
        txt = TextBox1.Text.Replace(" ", "")
        Nums = txt.Split(",")
        If (Nums.Length = 6) Then
            ' crear los parámetros para la funcion de Transformacion:
            Decenas(0) = System.Byte.Parse(Nums(0))
            Decenas(1) = System.Byte.Parse(Nums(1))
            For k = 2 To 5
                Unidades(k - 2) = System.Byte.Parse(Nums(k))
            Next
 
            ListBox1.Items.Clear()
            For j = 0 To Permuta.Cantidad - 1
                ListBox1.Items.Add(Permuta.Transforma(j, Decenas, Unidades))
            Next
            Label3.Text = "Cantidad en lista: " & ListBox1.Items.Count.ToString
        Else
            MessageBox.Show("No, no no... Debe haber 6 y solo 6 numeros, separados por 1 coma...")
        End If
    End Sub
 
 
 
Private Class Permutaciones
        Const MAX_COMBINAS As UInt16 = 210
        Private s_Combinas(MAX_COMBINAS) As UInt32  
 
        Public ReadOnly Property Cantidad As UInt16
            Get
                Return MAX_COMBINAS
            End Get
        End Property
 
        Public Function Transforma(ByVal Indice As UInt16, ByVal Dec() As Byte, ByVal Uni() As Byte) As String
            Dim permuta As UInt32 = s_Combinas(Indice)
            Dim s As String = "", valor As String = ""
            Dim x As Byte = 0, k As Byte
 
            For k = 0 To 5
                x = (permuta Mod 10)
                permuta \= 10
 
                Select Case x
                    ' forma C en que quedan ordenados más aproximado al ejemplo de muestra...
                    Case 0 : x = ((Dec(0) * 10) + Dec(1))                    
                    Case 1 To 4 : x = ((Dec(0) * 10) + Uni(x - 1))
                    Case 5 To 8 : x = ((Dec(1) * 10) + Uni(x - 5))
                    Case 9 : x = ((Dec(1) * 10) + Dec(0))
 
                    ' Otra forma B en que quedan ordenados...
                        'Case 0 : x = ((Dec(0) * 10) + Dec(1))
                        'Case 1 : x = ((Dec(1) * 10) + Dec(0))
                        'Case 2 To 5 : x = ((Dec(0) * 10) + Uni(x - 2))
                        'Case 6 To 9 : x = ((Dec(1) * 10) + Uni(x - 6))
 
                    ' Otra forma A en que quedan ordenados...
                        'Case 0 To 3 : x = ((Dec(0) * 10) + Uni(x))
                        'Case 4 To 7 : x = ((Dec(1) * 10) + Uni(x - 4))
                        'Case 8 : x = ((Dec(0) * 10) + Dec(1))
                        'Case 9 : x = ((Dec(1) * 10) + Dec(0))
                End Select
 
                If (x < 10) Then s = "0" & x.ToString Else s = x.ToString
                valor = (s & ", ") & valor
            Next
 
            Return valor
        End Function
 
 
        ' Genera todas las permutaciones posibles (210) en formato numerico.
        ' Alfabeto = X,Y,   R,S,T,U
        ' solo hay 8 pares de combinaciones: Resultado de combinar cada uno del GrupoDec con cada uno del GrupoUni
        '   XR, XS, XT, XU  (0,1,2,3)
        '   YR, YS, YT, YU  (4,5,6,7)
        '  Más las 2 combinaciones de intercambiar de posicion los valores del 'grupoDec'
        '   XY, YX          (8,9)  
        ' Cada par de esos 10 se enumeran ahora como 0-9 (usando una solo caracter)
        ' Ahora el numero de combinaciones con esos 10 pares tomados de 6 en 6 son: 210
        Public Sub New()
            Dim combina As UInteger = 12345       ' combinacion inicial
            Dim final As UInteger = 456789           '  combinación final
            Dim k As UInt16
            Dim digitos(0 To 5) As Byte, n As Byte  ' control de límite de cada dígito.
 
            For k = 0 To 5
                digitos(k) = k
            Next
 
            k = 0
            Do
                s_Combinas(k) = combina
                If (digitos(5) = 9) Then
                    n = 4
                    Do While digitos(n) = digitos(n + 1) - 1
                        n -= 1
                    Loop
                    digitos(n) += 1
                    For n = n + 1 To 5
                        digitos(n) = digitos(n - 1) + 1
                    Next
                    combina = 0
                    For n = 0 To 5
                        combina += digitos(n) * (10 ^ (5 - n))
                    Next
                Else
                    combina += 1 : digitos(5) += 1
                End If
                k += 1
            Loop While (combina < final)
            s_Combinas(k) = combina
        End Sub
 
        'Public ReadOnly Property Permuta(ByVal X As UInt16)
        '    Get
        '        Return s_Combinas(X)
        '    End Get
        'End Property
    End Class
 
' Mostras la lista de permutaciones en el listbox.... va en conjunto con la propiedad 'Permuta' de la clase permutaciones.
'Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    '    Dim k As UInt16, j As UInt32, s As String = ""
 
    '    ListBox1.Items.Clear()
    '    For k = 0 To Permuta.Cantidad - 1
    '        j = (Permuta.Permuta(k))
    '        If (j < 123456) Then s = "0" & j.ToString Else s = j.ToString
    '        ListBox1.Items.Add(s)
    '    Next
    'End Sub
End Class