Public Class Form1
 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  Try
   Button2.Enabled = False
  Catch ex As Exception
  End Try
 End Sub
 Sub Permutaciones(a() As String, ByVal j As Integer, k As Integer, lista As ListBox)
  'PERMUTAR UN TRIPLE
  Dim i As Integer
  Dim s As String = ""
  Dim sTemp As String
  If j = 1 Then
   For i = 1 To k
    s = s & a(i)
   Next i
   lista.Items.Add(s)
  Else
   For i = 1 To j
    sTemp = a(i)
    a(i) = a(j)
    a(j) = sTemp
    Permutaciones(a, j - 1, k, lista)
    sTemp = a(j)
    a(j) = a(i)
    a(i) = sTemp
   Next i
  End If
 End Sub
 Sub SACAR_PERMUTAS()
  REM TERMINO DE CALCULAR LAS PERNUTAS
  Try
   ListBox1.Items.Clear()
   If TextBox1.Text.Trim.Length >= 2 Then
    Dim x As Integer
    Dim i As Integer
    Dim a() As String
    x = Len(TextBox1.Text)
    ReDim a(x)
    For i = 1 To Len(TextBox1.Text)
     a(i) = Mid(TextBox1.Text, i, 1)
    Next i
    Permutaciones(a, x, x, ListBox1)
    TextBox2.Text = ListBox1.Items.Count.ToString
   Else
    MsgBox("Introduzca un cadena valida")
   End If
  Catch ex As Exception
  End Try
 End Sub
 Sub D1()
  Try
   REM TRAER DATOS DESDE EXCEL
   TextBox1.Text = obj_hoja_datos.Range("B3").Text
   TextBox1.Text = obj_hoja_datos.Range("B3").Text
   TextBox2.Text = obj_hoja_datos.Range("B4").Text
   TextBox3.Text = obj_hoja_datos.Range("B5").Text
   TextBox4.Text = obj_hoja_datos.Range("B6").Text
   TextBox5.Text = obj_hoja_datos.Range("B7").Text
   TextBox6.Text = obj_hoja_datos.Range("B8").Text
   TextBox7.Text = obj_hoja_datos.Range("B9").Text
   TextBox8.Text = obj_hoja_datos.Range("B10").Text
   TextBox9.Text = obj_hoja_datos.Range("B11").Text
   TextBox10.Text = obj_hoja_datos.Range("B12").Text
   TextBox11.Text = obj_hoja_datos.Range("B13").Text
   TextBox12.Text = obj_hoja_datos.Range("B14").Text
   TextBox13.Text = obj_hoja_datos.Range("B15").Text
   TextBox14.Text = obj_hoja_datos.Range("B16").Text
   TextBox15.Text = obj_hoja_datos.Range("B17").Text
   TextBox16.Text = obj_hoja_datos.Range("B18").Text
   TextBox17.Text = obj_hoja_datos.Range("B19").Text
   TextBox18.Text = obj_hoja_datos.Range("B20").Text
   TextBox19.Text = obj_hoja_datos.Range("B21").Text
   TextBox20.Text = obj_hoja_datos.Range("B22").Text
   TextBox21.Text = obj_hoja_datos.Range("B23").Text
   TextBox22.Text = obj_hoja_datos.Range("B24").Text
   TextBox23.Text = obj_hoja_datos.Range("B25").Text
   TextBox24.Text = obj_hoja_datos.Range("B26").Text
   TextBox25.Text = obj_hoja_datos.Range("B27").Text
   TextBox26.Text = obj_hoja_datos.Range("B28").Text
   TextBox27.Text = obj_hoja_datos.Range("B29").Text
   TextBox28.Text = obj_hoja_datos.Range("B30").Text
   TextBox29.Text = obj_hoja_datos.Range("B31").Text
   TextBox30.Text = obj_hoja_datos.Range("B32").Text
   TextBox31.Text = obj_hoja_datos.Range("B33").Text
   TextBox32.Text = obj_hoja_datos.Range("B34").Text
   TextBox33.Text = obj_hoja_datos.Range("B35").Text
   TextBox34.Text = obj_hoja_datos.Range("B36").Text
   TextBox35.Text = obj_hoja_datos.Range("B37").Text
   TextBox36.Text = obj_hoja_datos.Range("B38").Text
   TextBox37.Text = obj_hoja_datos.Range("B39").Text
   TextBox38.Text = obj_hoja_datos.Range("B40").Text
   TextBox39.Text = obj_hoja_datos.Range("B41").Text
   TextBox40.Text = obj_hoja_datos.Range("B42").Text
   TextBox41.Text = obj_hoja_datos.Range("B43").Text
   TextBox42.Text = obj_hoja_datos.Range("B44").Text
   TextBox43.Text = obj_hoja_datos.Range("B45").Text
   TextBox44.Text = obj_hoja_datos.Range("B46").Text
   TextBox45.Text = obj_hoja_datos.Range("B47").Text
   TextBox46.Text = obj_hoja_datos.Range("B48").Text
   TextBox47.Text = obj_hoja_datos.Range("B49").Text
   TextBox48.Text = obj_hoja_datos.Range("B50").Text
   TextBox49.Text = obj_hoja_datos.Range("B51").Text
   TextBox50.Text = obj_hoja_datos.Range("B52").Text
   TextBox51.Text = obj_hoja_datos.Range("B53").Text
   TextBox52.Text = obj_hoja_datos.Range("B54").Text
   TextBox53.Text = obj_hoja_datos.Range("B55").Text
   TextBox54.Text = obj_hoja_datos.Range("B56").Text
   TextBox55.Text = obj_hoja_datos.Range("B57").Text
   TextBox56.Text = obj_hoja_datos.Range("B58").Text
   TextBox57.Text = obj_hoja_datos.Range("B59").Text
   TextBox58.Text = obj_hoja_datos.Range("B60").Text
   TextBox59.Text = obj_hoja_datos.Range("B61").Text
   TextBox60.Text = obj_hoja_datos.Range("B62").Text
   TextBox61.Text = obj_hoja_datos.Range("B63").Text
   TextBox62.Text = obj_hoja_datos.Range("B64").Text
   TextBox63.Text = obj_hoja_datos.Range("B65").Text
   TextBox64.Text = obj_hoja_datos.Range("B66").Text
   TextBox65.Text = obj_hoja_datos.Range("B67").Text
   TextBox66.Text = obj_hoja_datos.Range("B68").Text
   TextBox67.Text = obj_hoja_datos.Range("B69").Text
   TextBox68.Text = obj_hoja_datos.Range("B70").Text
   TextBox69.Text = obj_hoja_datos.Range("B71").Text
   TextBox70.Text = obj_hoja_datos.Range("B72").Text
   TextBox71.Text = obj_hoja_datos.Range("B73").Text
   TextBox72.Text = obj_hoja_datos.Range("B74").Text
   TextBox73.Text = obj_hoja_datos.Range("B75").Text
   TextBox74.Text = obj_hoja_datos.Range("B76").Text
   TextBox75.Text = obj_hoja_datos.Range("B77").Text
   TextBox76.Text = obj_hoja_datos.Range("B78").Text
   TextBox77.Text = obj_hoja_datos.Range("B79").Text
   TextBox78.Text = obj_hoja_datos.Range("B80").Text
   TextBox79.Text = obj_hoja_datos.Range("B81").Text
   TextBox80.Text = obj_hoja_datos.Range("B82").Text
   TextBox81.Text = obj_hoja_datos.Range("B83").Text
   TextBox82.Text = obj_hoja_datos.Range("B84").Text
   TextBox83.Text = obj_hoja_datos.Range("B85").Text
   TextBox84.Text = obj_hoja_datos.Range("B86").Text
   TextBox85.Text = obj_hoja_datos.Range("B87").Text
   TextBox86.Text = obj_hoja_datos.Range("B88").Text
   TextBox87.Text = obj_hoja_datos.Range("B89").Text
   TextBox88.Text = obj_hoja_datos.Range("B90").Text
   TextBox89.Text = obj_hoja_datos.Range("B91").Text
   TextBox90.Text = obj_hoja_datos.Range("B92").Text
   TextBox91.Text = obj_hoja_datos.Range("B93").Text
   TextBox92.Text = obj_hoja_datos.Range("B94").Text
   TextBox93.Text = obj_hoja_datos.Range("B95").Text
   TextBox94.Text = obj_hoja_datos.Range("B96").Text
   TextBox95.Text = obj_hoja_datos.Range("B97").Text
   TextBox96.Text = obj_hoja_datos.Range("B98").Text
   TextBox97.Text = obj_hoja_datos.Range("B99").Text
   TextBox98.Text = obj_hoja_datos.Range("B100").Text
   TextBox99.Text = obj_hoja_datos.Range("B101").Text
   TextBox100.Text = obj_hoja_datos.Range("B102").Text
  Catch ex As Exception
  End Try
 End Sub
 Sub llenar_100()
  Try
   REM ALMACENAR DATOS, VERIFICAR QUE SEA UNA SIFRA DE TRES DIGITOS Y QUE NO ESTE LLENA LA MISMA
   If TextBox101.Text = "" Then
    MsgBox("EL CAMPO ESTA VACIO", MsgBoxStyle.Information, ("DATOS"))
    TextBox101.Focus()
   Else
    TextBox102.Text = CStr(Len(TextBox101.Text))
    If TextBox102.Text = "0" Or TextBox102.Text = "1" Or TextBox102.Text = "2" Then
     MsgBox("EL NUMERO DEBE DE SER DE TRES CIFRAS", MsgBoxStyle.Information, ("DATOS"))
    ElseIf TextBox1.Text = "" Then
     TextBox1.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox2.Text = "" Then
     TextBox2.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox3.Text = "" Then
     TextBox3.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox4.Text = "" Then
     TextBox4.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox5.Text = "" Then
     TextBox5.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox6.Text = "" Then
     TextBox6.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox7.Text = "" Then
     TextBox7.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox8.Text = "" Then
     TextBox8.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox9.Text = "" Then
     TextBox9.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox10.Text = "" Then
     TextBox10.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox11.Text = "" Then
     TextBox11.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox12.Text = "" Then
     TextBox12.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox13.Text = "" Then
     TextBox13.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox14.Text = "" Then
     TextBox14.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox15.Text = "" Then
     TextBox15.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox16.Text = "" Then
     TextBox16.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox17.Text = "" Then
     TextBox17.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox18.Text = "" Then
     TextBox18.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox19.Text = "" Then
     TextBox19.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox20.Text = "" Then
     TextBox20.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox21.Text = "" Then
     TextBox21.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox22.Text = "" Then
     TextBox22.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox23.Text = "" Then
     TextBox23.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox24.Text = "" Then
     TextBox24.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox25.Text = "" Then
     TextBox25.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox26.Text = "" Then
     TextBox26.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox27.Text = "" Then
     TextBox27.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox28.Text = "" Then
     TextBox28.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox29.Text = "" Then
     TextBox29.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox30.Text = "" Then
     TextBox30.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox31.Text = "" Then
     TextBox31.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox32.Text = "" Then
     TextBox32.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox33.Text = "" Then
     TextBox33.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox34.Text = "" Then
     TextBox34.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox35.Text = "" Then
     TextBox35.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox36.Text = "" Then
     TextBox36.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox37.Text = "" Then
     TextBox37.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox38.Text = "" Then
     TextBox38.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox39.Text = "" Then
     TextBox39.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox40.Text = "" Then
     TextBox40.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox41.Text = "" Then
     TextBox41.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox42.Text = "" Then
     TextBox42.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox43.Text = "" Then
     TextBox43.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox44.Text = "" Then
     TextBox44.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox45.Text = "" Then
     TextBox45.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox46.Text = "" Then
     TextBox46.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox47.Text = "" Then
     TextBox47.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox48.Text = "" Then
     TextBox48.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox49.Text = "" Then
     TextBox49.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox50.Text = "" Then
     TextBox50.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox51.Text = "" Then
     TextBox51.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox52.Text = "" Then
     TextBox52.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox53.Text = "" Then
     TextBox53.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox54.Text = "" Then
     TextBox54.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox55.Text = "" Then
     TextBox55.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox56.Text = "" Then
     TextBox56.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox57.Text = "" Then
     TextBox57.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox58.Text = "" Then
     TextBox58.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox59.Text = "" Then
     TextBox59.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox60.Text = "" Then
     TextBox60.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox61.Text = "" Then
     TextBox61.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox62.Text = "" Then
     TextBox62.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox63.Text = "" Then
     TextBox63.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox64.Text = "" Then
     TextBox64.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox65.Text = "" Then
     TextBox65.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox66.Text = "" Then
     TextBox66.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox67.Text = "" Then
     TextBox67.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox68.Text = "" Then
     TextBox68.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox69.Text = "" Then
     TextBox69.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox70.Text = "" Then
     TextBox70.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox71.Text = "" Then
     TextBox71.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox72.Text = "" Then
     TextBox72.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox73.Text = "" Then
     TextBox73.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox74.Text = "" Then
     TextBox74.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox75.Text = "" Then
     TextBox75.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox76.Text = "" Then
     TextBox76.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox77.Text = "" Then
     TextBox77.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox78.Text = "" Then
     TextBox78.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox79.Text = "" Then
     TextBox79.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox80.Text = "" Then
     TextBox80.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox81.Text = "" Then
     TextBox81.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox82.Text = "" Then
     TextBox82.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox83.Text = "" Then
     TextBox83.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox84.Text = "" Then
     TextBox84.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox85.Text = "" Then
     TextBox85.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox86.Text = "" Then
     TextBox86.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox87.Text = "" Then
     TextBox87.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox88.Text = "" Then
     TextBox88.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox89.Text = "" Then
     TextBox89.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox90.Text = "" Then
     TextBox90.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox91.Text = "" Then
     TextBox91.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox92.Text = "" Then
     TextBox92.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox93.Text = "" Then
     TextBox93.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox94.Text = "" Then
     TextBox94.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox95.Text = "" Then
     TextBox95.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox96.Text = "" Then
     TextBox96.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox97.Text = "" Then
     TextBox97.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox98.Text = "" Then
     TextBox98.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox99.Text = "" Then
     TextBox99.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    ElseIf TextBox100.Text = "" Then
     TextBox100.Text = TextBox101.Text
     TextBox101.Text = ""
     TextBox101.Focus()
    Else
     If MsgBox("Desea Reemplazar la Base de Datos", MsgBoxStyle.YesNo, "DATOS") = MsgBoxResult.Yes Then
      MOVER()
      TextBox100.Text = TextBox101.Text
      TextBox101.Text = ""
      TextBox101.Focus()
     Else
      MsgBox("No se Agrego el Nº " & TextBox101.Text & " a la Base de Datos", MsgBoxStyle.Information, "DATOS")
      TextBox101.Text = ""
      TextBox101.Focus()
     End If
    End If
   End If
  Catch ex As Exception
  End Try
    End Sub

    Sub LlenarAg(l As ListBox)
        'Llena el listbox1 desde los textbox mediante un Bucle mas no una repeticio
        Dim T1 As TextBox
        Try

            For x = 1 To 100
                T1 = Me.Controls("TextBox" & x)
                l.Items.Add(T1.Text)
            Next x
        Catch ex As Exception
        End Try
    End Sub
    Sub limpiarAg()
        'Llena el listbox1 desde los textbox mediante un Bucle mas no una repeticio
        Dim T1 As TextBox
        Try
            For x = 1 To 100
                T1 = Me.Controls("TextBox" & x)
                T1.Text = ""
            Next x
        Catch ex As Exception
        End Try
    End Sub
  
    Sub devolver1()
        Try
            REM DEVOLVER A LOS TEX LIMPIOS SIN REPETIDOS
            TextBox1.Text = ListBox2.Items(0).ToString()
            TextBox2.Text = ListBox2.Items(1).ToString()
            TextBox3.Text = ListBox2.Items(2).ToString()
            TextBox4.Text = ListBox2.Items(3).ToString()
            TextBox5.Text = ListBox2.Items(4).ToString()
            TextBox6.Text = ListBox2.Items(5).ToString()
            TextBox7.Text = ListBox2.Items(6).ToString()
            TextBox8.Text = ListBox2.Items(7).ToString()
            TextBox9.Text = ListBox2.Items(8).ToString()
            TextBox10.Text = ListBox2.Items(9).ToString()
            TextBox11.Text = ListBox2.Items(10).ToString()
            TextBox12.Text = ListBox2.Items(11).ToString()
            TextBox13.Text = ListBox2.Items(12).ToString()
            TextBox14.Text = ListBox2.Items(13).ToString()
            TextBox15.Text = ListBox2.Items(14).ToString()
            TextBox16.Text = ListBox2.Items(15).ToString()
            TextBox17.Text = ListBox2.Items(16).ToString()
            TextBox18.Text = ListBox2.Items(17).ToString()
            TextBox19.Text = ListBox2.Items(18).ToString()
            TextBox20.Text = ListBox2.Items(19).ToString()
            TextBox21.Text = ListBox2.Items(20).ToString()
            TextBox22.Text = ListBox2.Items(21).ToString()
            TextBox23.Text = ListBox2.Items(22).ToString()
            TextBox24.Text = ListBox2.Items(23).ToString()
            TextBox25.Text = ListBox2.Items(24).ToString()
            TextBox26.Text = ListBox2.Items(25).ToString()
            TextBox27.Text = ListBox2.Items(26).ToString()
            TextBox28.Text = ListBox2.Items(27).ToString()
            TextBox29.Text = ListBox2.Items(28).ToString()
            TextBox30.Text = ListBox2.Items(29).ToString()
            TextBox31.Text = ListBox2.Items(30).ToString()
            TextBox32.Text = ListBox2.Items(31).ToString()
            TextBox33.Text = ListBox2.Items(32).ToString()
            TextBox34.Text = ListBox2.Items(33).ToString()
            TextBox35.Text = ListBox2.Items(34).ToString()
            TextBox36.Text = ListBox2.Items(35).ToString()
            TextBox37.Text = ListBox2.Items(36).ToString()
            TextBox38.Text = ListBox2.Items(37).ToString()
            TextBox39.Text = ListBox2.Items(38).ToString()
            TextBox40.Text = ListBox2.Items(39).ToString()
            TextBox41.Text = ListBox2.Items(40).ToString()
            TextBox42.Text = ListBox2.Items(41).ToString()
            TextBox43.Text = ListBox2.Items(42).ToString()
            TextBox44.Text = ListBox2.Items(43).ToString()
            TextBox45.Text = ListBox2.Items(44).ToString()
            TextBox46.Text = ListBox2.Items(45).ToString()
            TextBox47.Text = ListBox2.Items(46).ToString()
            TextBox48.Text = ListBox2.Items(47).ToString()
            TextBox49.Text = ListBox2.Items(48).ToString()
            TextBox50.Text = ListBox2.Items(49).ToString()
            TextBox51.Text = ListBox2.Items(50).ToString()
            TextBox52.Text = ListBox2.Items(51).ToString()
            TextBox53.Text = ListBox2.Items(52).ToString()
            TextBox54.Text = ListBox2.Items(53).ToString()
            TextBox55.Text = ListBox2.Items(54).ToString()
            TextBox56.Text = ListBox2.Items(55).ToString()
            TextBox57.Text = ListBox2.Items(56).ToString()
            TextBox58.Text = ListBox2.Items(57).ToString()
            TextBox59.Text = ListBox2.Items(58).ToString()
            TextBox60.Text = ListBox2.Items(59).ToString()
            TextBox61.Text = ListBox2.Items(60).ToString()
            TextBox62.Text = ListBox2.Items(61).ToString()
            TextBox63.Text = ListBox2.Items(62).ToString()
            TextBox64.Text = ListBox2.Items(63).ToString()
            TextBox65.Text = ListBox2.Items(64).ToString()
            TextBox66.Text = ListBox2.Items(65).ToString()
            TextBox67.Text = ListBox2.Items(66).ToString()
            TextBox68.Text = ListBox2.Items(67).ToString()
            TextBox69.Text = ListBox2.Items(68).ToString()
            TextBox70.Text = ListBox2.Items(69).ToString()
            TextBox71.Text = ListBox2.Items(70).ToString()
            TextBox72.Text = ListBox2.Items(71).ToString()
            TextBox73.Text = ListBox2.Items(72).ToString()
            TextBox74.Text = ListBox2.Items(73).ToString()
            TextBox75.Text = ListBox2.Items(74).ToString()
            TextBox76.Text = ListBox2.Items(75).ToString()
            TextBox77.Text = ListBox2.Items(76).ToString()
            TextBox78.Text = ListBox2.Items(77).ToString()
            TextBox79.Text = ListBox2.Items(78).ToString()
            TextBox80.Text = ListBox2.Items(79).ToString()
            TextBox81.Text = ListBox2.Items(80).ToString()
            TextBox82.Text = ListBox2.Items(81).ToString()
            TextBox83.Text = ListBox2.Items(82).ToString()
            TextBox84.Text = ListBox2.Items(83).ToString()
            TextBox85.Text = ListBox2.Items(84).ToString()
            TextBox86.Text = ListBox2.Items(85).ToString()
            TextBox87.Text = ListBox2.Items(86).ToString()
            TextBox88.Text = ListBox2.Items(87).ToString()
            TextBox89.Text = ListBox2.Items(88).ToString()
            TextBox90.Text = ListBox2.Items(89).ToString()
            TextBox91.Text = ListBox2.Items(90).ToString()
            TextBox92.Text = ListBox2.Items(91).ToString()
            TextBox93.Text = ListBox2.Items(92).ToString()
            TextBox94.Text = ListBox2.Items(93).ToString()
            TextBox95.Text = ListBox2.Items(94).ToString()
            TextBox96.Text = ListBox2.Items(95).ToString()
            TextBox97.Text = ListBox2.Items(96).ToString()
            TextBox98.Text = ListBox2.Items(97).ToString()
            TextBox99.Text = ListBox2.Items(98).ToString()
            TextBox100.Text = ListBox2.Items(99).ToString()
        Catch ex As Exception
        End Try
    End Sub
    Sub LLENAR_LISTVEIW()
        Try
            REM LLENAR EL LISTVIEW PARA COMPARAR RESULTADOS
            ListView1.Items.Add(TextBox1.Text)
            ListView1.Items.Add(TextBox2.Text)
            ListView1.Items.Add(TextBox3.Text)
            ListView1.Items.Add(TextBox4.Text)
            ListView1.Items.Add(TextBox5.Text)
            ListView1.Items.Add(TextBox6.Text)
            ListView1.Items.Add(TextBox7.Text)
            ListView1.Items.Add(TextBox8.Text)
            ListView1.Items.Add(TextBox9.Text)
            ListView1.Items.Add(TextBox10.Text)
            ListView1.Items.Add(TextBox11.Text)
            ListView1.Items.Add(TextBox12.Text)
            ListView1.Items.Add(TextBox13.Text)
            ListView1.Items.Add(TextBox14.Text)
            ListView1.Items.Add(TextBox15.Text)
            ListView1.Items.Add(TextBox16.Text)
            ListView1.Items.Add(TextBox17.Text)
            ListView1.Items.Add(TextBox18.Text)
            ListView1.Items.Add(TextBox19.Text)
            ListView1.Items.Add(TextBox20.Text)
            ListView1.Items.Add(TextBox21.Text)
            ListView1.Items.Add(TextBox22.Text)
            ListView1.Items.Add(TextBox23.Text)
            ListView1.Items.Add(TextBox24.Text)
            ListView1.Items.Add(TextBox25.Text)
            ListView1.Items.Add(TextBox26.Text)
            ListView1.Items.Add(TextBox27.Text)
            ListView1.Items.Add(TextBox28.Text)
            ListView1.Items.Add(TextBox29.Text)
            ListView1.Items.Add(TextBox30.Text)
            ListView1.Items.Add(TextBox31.Text)
            ListView1.Items.Add(TextBox32.Text)
            ListView1.Items.Add(TextBox33.Text)
            ListView1.Items.Add(TextBox34.Text)
            ListView1.Items.Add(TextBox35.Text)
            ListView1.Items.Add(TextBox36.Text)
            ListView1.Items.Add(TextBox37.Text)
            ListView1.Items.Add(TextBox38.Text)
            ListView1.Items.Add(TextBox39.Text)
            ListView1.Items.Add(TextBox40.Text)
            ListView1.Items.Add(TextBox41.Text)
            ListView1.Items.Add(TextBox42.Text)
            ListView1.Items.Add(TextBox43.Text)
            ListView1.Items.Add(TextBox44.Text)
            ListView1.Items.Add(TextBox45.Text)
            ListView1.Items.Add(TextBox46.Text)
            ListView1.Items.Add(TextBox47.Text)
            ListView1.Items.Add(TextBox48.Text)
            ListView1.Items.Add(TextBox49.Text)
            ListView1.Items.Add(TextBox50.Text)
            ListView1.Items.Add(TextBox51.Text)
            ListView1.Items.Add(TextBox52.Text)
            ListView1.Items.Add(TextBox53.Text)
            ListView1.Items.Add(TextBox54.Text)
            ListView1.Items.Add(TextBox55.Text)
            ListView1.Items.Add(TextBox56.Text)
            ListView1.Items.Add(TextBox57.Text)
            ListView1.Items.Add(TextBox58.Text)
            ListView1.Items.Add(TextBox59.Text)
            ListView1.Items.Add(TextBox60.Text)
            ListView1.Items.Add(TextBox61.Text)
            ListView1.Items.Add(TextBox62.Text)
            ListView1.Items.Add(TextBox63.Text)
            ListView1.Items.Add(TextBox64.Text)
            ListView1.Items.Add(TextBox65.Text)
            ListView1.Items.Add(TextBox66.Text)
            ListView1.Items.Add(TextBox67.Text)
            ListView1.Items.Add(TextBox68.Text)
            ListView1.Items.Add(TextBox69.Text)
            ListView1.Items.Add(TextBox70.Text)
            ListView1.Items.Add(TextBox71.Text)
            ListView1.Items.Add(TextBox72.Text)
            ListView1.Items.Add(TextBox73.Text)
            ListView1.Items.Add(TextBox74.Text)
            ListView1.Items.Add(TextBox75.Text)
            ListView1.Items.Add(TextBox76.Text)
            ListView1.Items.Add(TextBox77.Text)
            ListView1.Items.Add(TextBox78.Text)
            ListView1.Items.Add(TextBox79.Text)
            ListView1.Items.Add(TextBox80.Text)
            ListView1.Items.Add(TextBox81.Text)
            ListView1.Items.Add(TextBox82.Text)
            ListView1.Items.Add(TextBox83.Text)
            ListView1.Items.Add(TextBox84.Text)
            ListView1.Items.Add(TextBox85.Text)
            ListView1.Items.Add(TextBox86.Text)
            ListView1.Items.Add(TextBox87.Text)
            ListView1.Items.Add(TextBox88.Text)
            ListView1.Items.Add(TextBox89.Text)
            ListView1.Items.Add(TextBox90.Text)
            ListView1.Items.Add(TextBox91.Text)
            ListView1.Items.Add(TextBox92.Text)
            ListView1.Items.Add(TextBox93.Text)
            ListView1.Items.Add(TextBox94.Text)
            ListView1.Items.Add(TextBox95.Text)
            ListView1.Items.Add(TextBox96.Text)
            ListView1.Items.Add(TextBox97.Text)
            ListView1.Items.Add(TextBox98.Text)
            ListView1.Items.Add(TextBox99.Text)
            ListView1.Items.Add(TextBox100.Text)
        Catch ex As Exception
        End Try
    End Sub
    Sub MOVER()
        Try
            REM SI ESTA LLENA LA LISTA Y DESEO AGREGAR UN NUMERO CORRER UN TEXT PARA LIBERAR ESPACIO
            TextBox1.Text = TextBox2.Text
            TextBox2.Text = TextBox3.Text
            TextBox3.Text = TextBox4.Text
            TextBox4.Text = TextBox5.Text
            TextBox5.Text = TextBox6.Text
            TextBox6.Text = TextBox7.Text
            TextBox7.Text = TextBox8.Text
            TextBox8.Text = TextBox9.Text
            TextBox9.Text = TextBox10.Text
            TextBox10.Text = TextBox11.Text
            TextBox11.Text = TextBox12.Text
            TextBox12.Text = TextBox13.Text
            TextBox13.Text = TextBox14.Text
            TextBox14.Text = TextBox15.Text
            TextBox15.Text = TextBox16.Text
            TextBox16.Text = TextBox17.Text
            TextBox17.Text = TextBox18.Text
            TextBox18.Text = TextBox19.Text
            TextBox19.Text = TextBox20.Text
            TextBox20.Text = TextBox21.Text
            TextBox21.Text = TextBox22.Text
            TextBox22.Text = TextBox23.Text
            TextBox23.Text = TextBox24.Text
            TextBox24.Text = TextBox25.Text
            TextBox25.Text = TextBox26.Text
            TextBox26.Text = TextBox27.Text
            TextBox27.Text = TextBox28.Text
            TextBox28.Text = TextBox29.Text
            TextBox29.Text = TextBox30.Text
            TextBox30.Text = TextBox31.Text
            TextBox31.Text = TextBox32.Text
            TextBox32.Text = TextBox33.Text
            TextBox33.Text = TextBox34.Text
            TextBox34.Text = TextBox35.Text
            TextBox35.Text = TextBox36.Text
            TextBox36.Text = TextBox37.Text
            TextBox37.Text = TextBox38.Text
            TextBox38.Text = TextBox39.Text
            TextBox39.Text = TextBox40.Text
            TextBox40.Text = TextBox41.Text
            TextBox41.Text = TextBox42.Text
            TextBox42.Text = TextBox43.Text
            TextBox43.Text = TextBox44.Text
            TextBox44.Text = TextBox45.Text
            TextBox45.Text = TextBox46.Text
            TextBox46.Text = TextBox47.Text
            TextBox47.Text = TextBox48.Text
            TextBox48.Text = TextBox49.Text
            TextBox49.Text = TextBox50.Text
            TextBox50.Text = TextBox51.Text
            TextBox51.Text = TextBox52.Text
            TextBox52.Text = TextBox53.Text
            TextBox53.Text = TextBox54.Text
            TextBox54.Text = TextBox55.Text
            TextBox55.Text = TextBox56.Text
            TextBox56.Text = TextBox57.Text
            TextBox57.Text = TextBox58.Text
            TextBox58.Text = TextBox59.Text
            TextBox59.Text = TextBox60.Text
            TextBox60.Text = TextBox61.Text
            TextBox61.Text = TextBox62.Text
            TextBox62.Text = TextBox63.Text
            TextBox63.Text = TextBox64.Text
            TextBox64.Text = TextBox65.Text
            TextBox65.Text = TextBox66.Text
            TextBox66.Text = TextBox67.Text
            TextBox67.Text = TextBox68.Text
            TextBox68.Text = TextBox69.Text
            TextBox69.Text = TextBox70.Text
            TextBox70.Text = TextBox71.Text
            TextBox71.Text = TextBox72.Text
            TextBox72.Text = TextBox73.Text
            TextBox73.Text = TextBox74.Text
            TextBox74.Text = TextBox75.Text
            TextBox75.Text = TextBox76.Text
            TextBox76.Text = TextBox77.Text
            TextBox77.Text = TextBox78.Text
            TextBox78.Text = TextBox79.Text
            TextBox79.Text = TextBox80.Text
            TextBox80.Text = TextBox81.Text
            TextBox81.Text = TextBox82.Text
            TextBox82.Text = TextBox83.Text
            TextBox83.Text = TextBox84.Text
            TextBox84.Text = TextBox85.Text
            TextBox85.Text = TextBox86.Text
            TextBox86.Text = TextBox87.Text
            TextBox87.Text = TextBox88.Text
            TextBox88.Text = TextBox89.Text
            TextBox89.Text = TextBox90.Text
            TextBox90.Text = TextBox91.Text
            TextBox91.Text = TextBox92.Text
            TextBox92.Text = TextBox93.Text
            TextBox93.Text = TextBox94.Text
            TextBox94.Text = TextBox95.Text
            TextBox95.Text = TextBox96.Text
            TextBox96.Text = TextBox97.Text
            TextBox97.Text = TextBox98.Text
            TextBox98.Text = TextBox99.Text
            TextBox99.Text = TextBox100.Text
        Catch ex As Exception
        End Try
    End Sub
    Sub filtrar1()
        Try
            REM SEPARO EL NUMERO PARA VERIFICAR LAS COLUMNAS
            TextBox106.Text = (Mid(TextBox103.Text, 1, 1))
            TextBox109.Text = (Mid(TextBox103.Text, 2, 1))
            TextBox112.Text = (Mid(TextBox103.Text, 3, 1))
            TextBox107.Text = (Mid(TextBox104.Text, 1, 1))
            TextBox110.Text = (Mid(TextBox104.Text, 2, 1))
            TextBox113.Text = (Mid(TextBox104.Text, 3, 1))
            TextBox108.Text = (Mid(TextBox105.Text, 1, 1))
            TextBox111.Text = (Mid(TextBox105.Text, 2, 1))
            TextBox114.Text = (Mid(TextBox105.Text, 3, 1))
        Catch ex As Exception
        End Try
    End Sub
    Sub ver1()
        REM VERIFICAR LOS DATOS OBTENIENDO EL RESULTADO EN EL LISTBOX4
        los_27()
        TextBox144.Text = TextBox115.Text
        ver_1()
        TextBox144.Text = TextBox116.Text
        ver_1()
        TextBox144.Text = TextBox117.Text
        ver_1()
        TextBox144.Text = TextBox118.Text
        ver_1()
        TextBox144.Text = TextBox119.Text
        ver_1()
        TextBox144.Text = TextBox120.Text
        ver_1()
        TextBox144.Text = TextBox121.Text
        ver_1()
        TextBox144.Text = TextBox122.Text
        ver_1()
        TextBox144.Text = TextBox123.Text
        ver_1()
        TextBox144.Text = TextBox124.Text
        ver_1()
        TextBox144.Text = TextBox125.Text
        ver_1()
        TextBox144.Text = TextBox126.Text
        ver_1()
        TextBox144.Text = TextBox127.Text
        ver_1()
        TextBox144.Text = TextBox128.Text
        ver_1()
        TextBox144.Text = TextBox129.Text
        ver_1()
        TextBox144.Text = TextBox130.Text
        ver_1()
        TextBox144.Text = TextBox131.Text
        ver_1()
        TextBox144.Text = TextBox132.Text
        ver_1()
        TextBox144.Text = TextBox133.Text
        ver_1()
        TextBox144.Text = TextBox134.Text
        ver_1()
        TextBox144.Text = TextBox135.Text
        ver_1()
        TextBox144.Text = TextBox136.Text
        ver_1()
        TextBox144.Text = TextBox137.Text
        ver_1()
        TextBox144.Text = TextBox138.Text
        ver_1()
        TextBox144.Text = TextBox139.Text
        ver_1()
        TextBox144.Text = TextBox140.Text
        ver_1()
        TextBox144.Text = TextBox141.Text
        ver_1()
    End Sub
    Sub filtrar2()
        REM VERIFICAR LOS 100 TEXT
        'Try
        ' TextBox103.Text = TextBox1.Text
        ' TextBox104.Text = TextBox2.Text
        ' TextBox105.Text = TextBox3.Text
        ' If TextBox145.Text = 0 Then
        '  MsgBox("SON DIFERENTES")
        ' ElseIf TextBox145.Text = 1 Then
        '  TextBox105.Text = TextBox4.Text
        ' Else
        '  MsgBox("NO DIFERENTES")
        ' End If

        'Catch ex As Exception
        'End Try
        REM ESTE ES EL CODIGO QUE QUIERO REEMPLASAR POR UN BUBLE
        TextBox103.Text = TextBox1.Text
        TextBox104.Text = TextBox2.Text
        TextBox105.Text = TextBox3.Text
        If TextBox145.Text = 1 Then
            TextBox105.Text = TextBox4.Text
            If TextBox145.Text = 1 Then
                TextBox105.Text = TextBox5.Text
                If TextBox145.Text = 1 Then
                    TextBox105.Text = TextBox6.Text
                    If TextBox145.Text = 1 Then
                        TextBox105.Text = TextBox7.Text
                        If TextBox145.Text = 1 Then
                            TextBox105.Text = TextBox8.Text
                            If TextBox145.Text = 1 Then
                                TextBox105.Text = TextBox9.Text
                                If TextBox145.Text = 1 Then
                                    TextBox105.Text = TextBox10.Text
                                    If TextBox145.Text = 1 Then
                                        TextBox105.Text = TextBox11.Text
                                        If TextBox145.Text = 1 Then
                                            TextBox105.Text = TextBox12.Text
                                            If TextBox145.Text = 1 Then
                                                TextBox105.Text = TextBox13.Text
                                                If TextBox145.Text = 1 Then
                                                    TextBox105.Text = TextBox14.Text
                                                    If TextBox145.Text = 1 Then
                                                        TextBox105.Text = TextBox15.Text
                                                        If TextBox145.Text = 1 Then
                                                            TextBox105.Text = TextBox16.Text
                                                            If TextBox145.Text = 1 Then
                                                                TextBox105.Text = TextBox17.Text
                                                                If TextBox145.Text = 1 Then
                                                                    TextBox105.Text = TextBox18.Text
                                                                    If TextBox145.Text = 1 Then
                                                                        TextBox105.Text = TextBox19.Text
                                                                        If TextBox145.Text = 1 Then
                                                                            TextBox105.Text = TextBox20.Text
                                                                            If TextBox145.Text = 1 Then
                                                                                TextBox105.Text = TextBox21.Text
                                                                                If TextBox145.Text = 1 Then
                                                                                    TextBox105.Text = TextBox22.Text
                                                                                    If TextBox145.Text = 1 Then
                                                                                        TextBox105.Text = TextBox23.Text
                                                                                        If TextBox145.Text = 1 Then
                                                                                            TextBox105.Text = TextBox24.Text
                                                                                            If TextBox145.Text = 1 Then
                                                                                                TextBox105.Text = TextBox25.Text
                                                                                                If TextBox145.Text = 1 Then
                                                                                                    TextBox105.Text = TextBox26.Text
                                                                                                    If TextBox145.Text = 1 Then
                                                                                                        TextBox105.Text = TextBox27.Text
                                                                                                        If TextBox145.Text = 1 Then
                                                                                                            TextBox105.Text = TextBox28.Text
                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                TextBox105.Text = TextBox29.Text
                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                    TextBox105.Text = TextBox30.Text
                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                        TextBox105.Text = TextBox31.Text
                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                            TextBox105.Text = TextBox32.Text
                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                TextBox105.Text = TextBox33.Text
                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                    TextBox105.Text = TextBox34.Text
                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                        TextBox105.Text = TextBox35.Text
                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                            TextBox105.Text = TextBox36.Text
                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                TextBox105.Text = TextBox37.Text
                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                    TextBox105.Text = TextBox38.Text
                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                        TextBox105.Text = TextBox39.Text
                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                            TextBox105.Text = TextBox40.Text
                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                TextBox105.Text = TextBox41.Text
                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                    TextBox105.Text = TextBox42.Text
                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                        TextBox105.Text = TextBox43.Text
                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                            TextBox105.Text = TextBox44.Text
                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                TextBox105.Text = TextBox45.Text
                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                    TextBox105.Text = TextBox46.Text
                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                        TextBox105.Text = TextBox47.Text
                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                            TextBox105.Text = TextBox48.Text
                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                TextBox105.Text = TextBox49.Text
                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                    TextBox105.Text = TextBox50.Text
                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                        TextBox105.Text = TextBox51.Text
                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                            TextBox105.Text = TextBox52.Text
                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                TextBox105.Text = TextBox53.Text
                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                    TextBox105.Text = TextBox54.Text
                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                        TextBox105.Text = TextBox55.Text
                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                            TextBox105.Text = TextBox56.Text
                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                TextBox105.Text = TextBox57.Text
                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                    TextBox105.Text = TextBox58.Text
                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                        TextBox105.Text = TextBox59.Text
                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                            TextBox105.Text = TextBox60.Text
                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                TextBox105.Text = TextBox61.Text
                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                    TextBox105.Text = TextBox62.Text
                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                        TextBox105.Text = TextBox63.Text
                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                            TextBox105.Text = TextBox64.Text
                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                TextBox105.Text = TextBox65.Text
                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox66.Text
                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox67.Text
                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox68.Text
                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox69.Text
                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox70.Text
                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox71.Text
                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox72.Text
                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox73.Text
                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox74.Text
                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox75.Text
                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox76.Text
                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox77.Text
                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox78.Text
                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox79.Text
                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox80.Text
                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox81.Text
                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox82.Text
                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox83.Text
                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox84.Text
                                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox85.Text
                                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox86.Text
                                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox87.Text
                                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox88.Text
                                                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox89.Text
                                                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox90.Text
                                                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox91.Text
                                                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox92.Text
                                                                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox93.Text
                                                                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox94.Text
                                                                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox95.Text
                                                                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox96.Text
                                                                                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox97.Text
                                                                                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox98.Text
                                                                                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox99.Text
                                                                                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox100.Text

                                                                                                                                                                                                                                                                                                                                                                                                            TextBox103.Text = TextBox1.Text
                                                                                                                                                                                                                                                                                                                                                                                                            TextBox104.Text = TextBox3.Text
                                                                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox4.Text
                                                                                                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox5.Text
                                                                                                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox6.Text
                                                                                                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox7.Text
                                                                                                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox8.Text
                                                                                                                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox9.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox10.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox11.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox12.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox13.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox14.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox15.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox16.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox17.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox18.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox19.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox20.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox21.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox22.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox23.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox24.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox25.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox26.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox27.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox28.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox29.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox30.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox31.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox32.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox33.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox34.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox35.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox36.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox37.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox38.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox39.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox40.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox41.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox42.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox43.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox44.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox45.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox46.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox47.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox48.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox49.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox50.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox51.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox52.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox53.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox54.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox55.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox56.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox57.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox58.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox59.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox60.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox61.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox62.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox63.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox64.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox65.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox66.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox67.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox68.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox69.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox70.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox71.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox72.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox73.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox74.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox75.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox76.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox77.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox78.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox79.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox80.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox81.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox82.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox83.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox84.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox85.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox86.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox87.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox88.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox89.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox90.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox91.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox92.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox93.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox94.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox95.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox96.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                TextBox105.Text = TextBox97.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    TextBox105.Text = TextBox98.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        TextBox105.Text = TextBox99.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        If TextBox145.Text = 1 Then
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            TextBox105.Text = TextBox100.Text
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                                End If
                                                                                                                                                                                                                            End If
                                                                                                                                                                                                                        End If
                                                                                                                                                                                                                    End If
                                                                                                                                                                                                                End If
                                                                                                                                                                                                            End If
                                                                                                                                                                                                        End If
                                                                                                                                                                                                    End If
                                                                                                                                                                                                End If
                                                                                                                                                                                            End If
                                                                                                                                                                                        End If
                                                                                                                                                                                    End If
                                                                                                                                                                                End If
                                                                                                                                                                            End If
                                                                                                                                                                        End If
                                                                                                                                                                    End If
                                                                                                                                                                End If
                                                                                                                                                            End If
                                                                                                                                                        End If
                                                                                                                                                    End If
                                                                                                                                                End If
                                                                                                                                            End If
                                                                                                                                        End If
                                                                                                                                    End If
                                                                                                                                End If
                                                                                                                            End If
                                                                                                                        End If
                                                                                                                    End If
                                                                                                                End If
                                                                                                            End If
                                                                                                        End If
                                                                                                    End If
                                                                                                End If
                                                                                            End If
                                                                                        End If
                                                                                    End If
                                                                                End If
                                                                            End If
                                                                        End If
                                                                    End If
                                                                End If
                                                            End If
                                                        End If
                                                    End If
                                                End If
                                            End If
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        Else
            ver1()

        End If


    End Sub
    Sub los_27()
        Try
            REM SACAR LAS 27 COMBINACIONES
            TextBox115.Text = TextBox106.Text & TextBox109.Text & TextBox112.Text
            TextBox116.Text = TextBox106.Text & TextBox109.Text & TextBox113.Text
            TextBox117.Text = TextBox106.Text & TextBox109.Text & TextBox114.Text
            TextBox118.Text = TextBox106.Text & TextBox110.Text & TextBox112.Text
            TextBox119.Text = TextBox106.Text & TextBox110.Text & TextBox113.Text
            TextBox120.Text = TextBox106.Text & TextBox110.Text & TextBox114.Text
            TextBox121.Text = TextBox106.Text & TextBox111.Text & TextBox112.Text
            TextBox122.Text = TextBox106.Text & TextBox111.Text & TextBox113.Text
            TextBox123.Text = TextBox106.Text & TextBox111.Text & TextBox114.Text
            TextBox124.Text = TextBox107.Text & TextBox109.Text & TextBox112.Text
            TextBox125.Text = TextBox107.Text & TextBox109.Text & TextBox113.Text
            TextBox126.Text = TextBox107.Text & TextBox109.Text & TextBox114.Text
            TextBox127.Text = TextBox107.Text & TextBox110.Text & TextBox112.Text
            TextBox128.Text = TextBox107.Text & TextBox110.Text & TextBox113.Text
            TextBox129.Text = TextBox107.Text & TextBox110.Text & TextBox114.Text
            TextBox130.Text = TextBox107.Text & TextBox111.Text & TextBox112.Text
            TextBox131.Text = TextBox107.Text & TextBox111.Text & TextBox113.Text
            TextBox132.Text = TextBox107.Text & TextBox111.Text & TextBox114.Text
            TextBox133.Text = TextBox108.Text & TextBox109.Text & TextBox112.Text
            TextBox134.Text = TextBox108.Text & TextBox109.Text & TextBox113.Text
            TextBox135.Text = TextBox108.Text & TextBox109.Text & TextBox114.Text
            TextBox136.Text = TextBox108.Text & TextBox110.Text & TextBox112.Text
            TextBox137.Text = TextBox108.Text & TextBox110.Text & TextBox113.Text
            TextBox138.Text = TextBox108.Text & TextBox110.Text & TextBox114.Text
            TextBox139.Text = TextBox108.Text & TextBox111.Text & TextBox112.Text
            TextBox140.Text = TextBox108.Text & TextBox111.Text & TextBox113.Text
            TextBox141.Text = TextBox108.Text & TextBox111.Text & TextBox114.Text
        Catch ex As Exception
        End Try
    End Sub
    'Sub ver_1()
    '    Try
    '        REM 1
    '        For Each itemsinlist As ListViewItem In Me.ListView1.Items
    '            itemsinlist.Selected = False
    '            If itemsinlist.Text = Me.TextBox115.Text Then
    '                itemsinlist.Selected = True
    '                ListBox3.Items.Add(itemsinlist.Text)
    '            Else
    '                itemsinlist.Selected = False
    '                MsgBox("no estaba 1")
    '            End If
    '            itemsinlist = Nothing
    '            itemsinlist.Text = Nothing
    '        Next
    '    Catch ex As Exception
    '    End Try
    'End Sub
    Sub ver_1()
        Try
            For Each itemsinlist As ListViewItem In Me.ListView1.Items
                itemsinlist.Selected = False
                If itemsinlist.Text = Me.TextBox144.Text Then
                    itemsinlist.Selected = True
                    ListBox3.Items.Add(itemsinlist.Text)
                End If
            Next
            TextBox143.Text = ListBox3.Items.Count
            TextBox142.Text = ListBox3.Items(0)
            ListBox4.Items.Add(TextBox142.Text & " " & TextBox143.Text)
            ListBox3.Items.Clear()
        Catch ex As Exception
        End Try
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            llenar_100()
        Catch ex As Exception
        End Try
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Try
            If MsgBox("Desea Reemplazar la Base de Datos", MsgBoxStyle.YesNo, "DATOS") = MsgBoxResult.Yes Then
                abrir_datos()
                guardar_datos()
                cerrar_excel()
                Button2.Enabled = False
                abrir_datos()
                D1()
                cerrar_excel()
                ListBox1.Items.Clear()
                ListView1.Items.Clear()
                'LLENAR1()
                'LLENAR2()
                LlenarAg(Me.ListBox1)
                LlenarAg(Me.ListBox2)
                Dim distintos1 = ListBox2.Items.Cast(Of String).Distinct().ToArray()
                ListBox2.Items.Clear()
                ListBox2.Items.AddRange(distintos1)
                LLENAR_LISTVEIW()
                TextBox101.Focus()
            Else
                MsgBox("No se Guardo la Informacion", MsgBoxStyle.Information, "DATOS")
            End If
        Catch ex As Exception
        End Try

        'If ListBox1.Items.Contains(TextBox101.Text) Then
        '    MsgBox("dul")
        'End If

        'ListBox2.Items.Add(Mid(TextBox101.Text, 1, 1))
        'ListBox3.Items.Add(Mid(TextBox101.Text, 2, 1))
        'ListBox4.Items.Add(Mid(TextBox101.Text, 3, 1))

        'ListBox1.Items.Add(TextBox1.Text)
        'ListBox1.Items.Add(TextBox2.Text)
        'ListBox1.Items.Add(TextBox3.Text)

    End Sub
    Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Try
            Button2.Enabled = True
            abrir_datos()
            D1()
            cerrar_excel()
            ListBox1.Items.Clear()
            ListView1.Items.Clear()
            'LLENAR1()'Con el antiguo
            'LLENAR2()'Con el antiguo
            LlenarAg(Me.ListBox1)
            LlenarAg(Me.ListBox2)
            Dim distintos1 = ListBox2.Items.Cast(Of String).Distinct().ToArray()
            ListBox2.Items.Clear()
            ListBox2.Items.AddRange(distintos1)
            LLENAR_LISTVEIW()
            TextBox101.Focus()
        Catch ex As Exception
        End Try
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Try
            limpiarAg()
            devolver1()
        Catch ex As Exception
        End Try
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        filtrar2()
        'ListBox4.Items.Add(TextBox1.Text)


        'Dim distintos2 = ListBox3.Items.Cast(Of String).Distinct().ToArray()
        'ListBox3.Items.Clear()
        'ListBox3.Items.AddRange(distintos2)


    End Sub
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Try
            ver1()

        Catch ex As Exception
        End Try
    End Sub
    'If ListBox1.Items.Contains(TextBox116.Text) Then
    '    MsgBox("El Dato Esta Dulplicado", MsgBoxStyle.Information, ("DATOS"))
    'End If

    'MessageBox.Show(String.Format("El objeto ListBox1 tiene {0} elementos", ListBox1.Items.Count()))
    'TextBox115.Text = "Elementos: " & ListBox1.Items.Count

    'ListBox3.Items.Clear()
    'Dim x As ListViewItem = ListView1.Items.Add(TextBox100.Text)
    'x.SubItems.Add("1")
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        'Dim distintos1 = ListBox4.Items.Cast(Of String).Distinct().ToArray()
        'ListBox4.Items.Clear()
        'ListBox4.Items.AddRange(distintos1)
    End Sub
    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click

    End Sub
    Private Sub TextBox101_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox101.KeyPress
        If Asc(e.KeyChar) = 13 Then
            Button1.PerformClick()
        End If
    End Sub
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        TextBox103.Text = 123
        TextBox104.Text = 456
        TextBox105.Text = 789
    End Sub
    Private Sub TextBox145_TextChanged(sender As Object, e As EventArgs) Handles TextBox145.TextChanged, TextBox106.TextChanged, TextBox107.TextChanged, TextBox108.TextChanged, TextBox109.TextChanged, TextBox110.TextChanged, TextBox111.TextChanged, TextBox112.TextChanged, TextBox146.TextChanged
        REM VERIFICAR SI LAS COLUMAS NO SE REPITIERON
        If TextBox106.Text = TextBox107.Text Or TextBox107.Text = TextBox108.Text Or TextBox108.Text = TextBox106.Text Or TextBox109.Text = TextBox110.Text Or TextBox110.Text = TextBox111.Text Or TextBox111.Text = TextBox109.Text Or TextBox112.Text = TextBox113.Text Or TextBox113.Text = TextBox114.Text Or TextBox114.Text = TextBox112.Text Then
            TextBox145.Text = 1
        Else
            TextBox145.Text = 0
        End If
    End Sub
    Private Sub TextBox103_TextChanged(sender As Object, e As EventArgs) Handles TextBox103.TextChanged, TextBox104.TextChanged, TextBox105.TextChanged, TextBox106.TextChanged, TextBox107.TextChanged, TextBox108.TextChanged, TextBox109.TextChanged, TextBox110.TextChanged, TextBox111.TextChanged, TextBox112.TextChanged
        Try
            REM ENCONTRE UN FILTRADO DE COLUMNAS MAS DIRECTO Y EFISCAS CREO
            TextBox106.Text = (Mid(TextBox103.Text, 1, 1))
            TextBox109.Text = (Mid(TextBox103.Text, 2, 1))
            TextBox112.Text = (Mid(TextBox103.Text, 3, 1))
            TextBox107.Text = (Mid(TextBox104.Text, 1, 1))
            TextBox110.Text = (Mid(TextBox104.Text, 2, 1))
            TextBox113.Text = (Mid(TextBox104.Text, 3, 1))
            TextBox108.Text = (Mid(TextBox105.Text, 1, 1))
            TextBox111.Text = (Mid(TextBox105.Text, 2, 1))
            TextBox114.Text = (Mid(TextBox105.Text, 3, 1))
        Catch ex As Exception
        End Try
    End Sub
    Private Sub TextBox115_TextChanged(sender As Object, e As EventArgs) Handles TextBox115.TextChanged, TextBox103.TextChanged, TextBox104.TextChanged, TextBox105.TextChanged, TextBox106.TextChanged, TextBox107.TextChanged, TextBox108.TextChanged, TextBox109.TextChanged, TextBox110.TextChanged, TextBox111.TextChanged, TextBox112.TextChanged, TextBox113.TextChanged, TextBox114.TextChanged, TextBox116.TextChanged, TextBox117.TextChanged, TextBox118.TextChanged, TextBox119.TextChanged, TextBox120.TextChanged, TextBox121.TextChanged, TextBox122.TextChanged, TextBox123.TextChanged, TextBox124.TextChanged, TextBox125.TextChanged, TextBox126.TextChanged, TextBox127.TextChanged, TextBox128.TextChanged, TextBox129.TextChanged, TextBox130.TextChanged, TextBox131.TextChanged, TextBox132.TextChanged, TextBox133.TextChanged, TextBox134.TextChanged, TextBox135.TextChanged, TextBox136.TextChanged, TextBox137.TextChanged, TextBox138.TextChanged, TextBox139.TextChanged, TextBox140.TextChanged, TextBox141.TextChanged
        Try
            REM SACAR LAS 27 COMBINACIONES MAS EFECTIVAMENTE CCREO
            TextBox115.Text = TextBox106.Text & TextBox109.Text & TextBox112.Text
            TextBox116.Text = TextBox106.Text & TextBox109.Text & TextBox113.Text
            TextBox117.Text = TextBox106.Text & TextBox109.Text & TextBox114.Text
            TextBox118.Text = TextBox106.Text & TextBox110.Text & TextBox112.Text
            TextBox119.Text = TextBox106.Text & TextBox110.Text & TextBox113.Text
            TextBox120.Text = TextBox106.Text & TextBox110.Text & TextBox114.Text
            TextBox121.Text = TextBox106.Text & TextBox111.Text & TextBox112.Text
            TextBox122.Text = TextBox106.Text & TextBox111.Text & TextBox113.Text
            TextBox123.Text = TextBox106.Text & TextBox111.Text & TextBox114.Text
            TextBox124.Text = TextBox107.Text & TextBox109.Text & TextBox112.Text
            TextBox125.Text = TextBox107.Text & TextBox109.Text & TextBox113.Text
            TextBox126.Text = TextBox107.Text & TextBox109.Text & TextBox114.Text
            TextBox127.Text = TextBox107.Text & TextBox110.Text & TextBox112.Text
            TextBox128.Text = TextBox107.Text & TextBox110.Text & TextBox113.Text
            TextBox129.Text = TextBox107.Text & TextBox110.Text & TextBox114.Text
            TextBox130.Text = TextBox107.Text & TextBox111.Text & TextBox112.Text
            TextBox131.Text = TextBox107.Text & TextBox111.Text & TextBox113.Text
            TextBox132.Text = TextBox107.Text & TextBox111.Text & TextBox114.Text
            TextBox133.Text = TextBox108.Text & TextBox109.Text & TextBox112.Text
            TextBox134.Text = TextBox108.Text & TextBox109.Text & TextBox113.Text
            TextBox135.Text = TextBox108.Text & TextBox109.Text & TextBox114.Text
            TextBox136.Text = TextBox108.Text & TextBox110.Text & TextBox112.Text
            TextBox137.Text = TextBox108.Text & TextBox110.Text & TextBox113.Text
            TextBox138.Text = TextBox108.Text & TextBox110.Text & TextBox114.Text
            TextBox139.Text = TextBox108.Text & TextBox111.Text & TextBox112.Text
            TextBox140.Text = TextBox108.Text & TextBox111.Text & TextBox113.Text
            TextBox141.Text = TextBox108.Text & TextBox111.Text & TextBox114.Text
        Catch ex As Exception
        End Try
    End Sub
    Private Sub TextBox102_TextChanged(sender As Object, e As EventArgs) Handles TextBox102.TextChanged, TextBox101.TextChanged
        Try
            TextBox102.Text = CStr(Len(TextBox101.Text))
        Catch ex As Exception
        End Try
    End Sub

    Private Sub Button11_Click(sender As System.Object, e As System.EventArgs) Handles Button11.Click
        Dim T1 As TextBox
        Dim T2 As TextBox
        Dim T3 As TextBox
        Dim i, j, k As Integer 'este llevra

        For i = 1 To 3 'el primero del  1 al  98
            T1 = Me.Controls("TextBox" & i)
            For j = 2 To 6 'el segundo del 2 al 99
                T2 = Me.Controls("TextBox" & j)
                For k = 3 To 100 'el segundo del 2 al 100
                    T3 = Me.Controls("TextBox" & k)
                    'MsgBox("Aqui tengo el" & T1.Name & " que tiene el valor de " & T1.Text & "vs el " & T2.Name & " que tiene el valor de " & T2.Text & "vs el " & T2.Name & " que tiene el valor de " & T2.Text)
                    ListBox6.Items.Add(T1.Name & " = " & T1.Text & " VS " & T2.Name & " = " & T2.Text & " VS " & T3.Name & " = " & T3.Text)
                Next k
            Next j
        Next i
    End Sub
End Class
