Dim combo1(3), combo2(3), combo3(3), combo4(3)

Private Sub CommandButton3_Click()
  GRABAR
  Unload FormDefinir
End Sub

Private Sub Image5_Click()
  Unload FormDefinir
End Sub

Private Sub listBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  ListBox1.Visible = False
  Close
  posicion = ListBox1.ListIndex + 2
  Open archconf For Random As 1 Len = largoC
  Get 1, posicion, conf
  TextBox1.Text = conf.Label1
  TextBox2.Text = conf.Label2
  TextBox3.Text = conf.Label3
  TextBox4.Text = conf.Label4
  TextBox5.Text = conf.Label5
  TextBox6.Text = conf.Label6
  TextBox7.Text = conf.Label7
  TextBox8.Text = conf.Label8
  TextBox9.Text = conf.Label9
  TextBox10.Text = conf.Label10
  TextBox11.Text = conf.nombre
  TextBox13.Text = conf.varrep1
  TextBox14.Text = conf.varrep2
  TextBox15.Text = conf.comb11
  TextBox16.Text = conf.comb12
  TextBox17.Text = conf.comb13
  TextBox18.Text = conf.comb21
  TextBox19.Text = conf.comb22
  TextBox20.Text = conf.comb23
  TextBox21.Text = conf.comb31
  TextBox22.Text = conf.comb32
  TextBox23.Text = conf.comb33
  TextBox24.Text = conf.comb41
  TextBox25.Text = conf.comb42
  TextBox26.Text = conf.comb43
  TextBox27.Text = conf.var1
  TextBox28.Text = conf.var2
  TextBox29.Text = conf.var3
  TextBox30.Text = conf.var4
  TextBox31.Text = conf.var5
  TextBox32.Text = conf.var6
  TextBox33.Text = conf.var7
  TextBox34.Text = conf.var8
  TextBox35.Text = conf.var9
  TextBox36.Text = conf.var10
  If conf.ftribunal = "1" Then
    CheckBox1.Value = True
  End If
  If conf.fciudad = "1" Then
    CheckBox2.Value = True
  End If
  If conf.fjuez = "1" Then
    CheckBox3.Value = True
  End If
  If conf.fsecretario = "1" Then
    CheckBox4.Value = True
  End If
End Sub

Private Sub CommandButton1_Click()
  If TextBox11 = "" Then Exit Sub
  Close
  Open archconf For Random As 1 Len = largoC
  Rem leer el indice, incrementar y grabarlo
  Get 1, 1, conf
  ultimo = Val(conf.nombre)
  If Val(ultimo) = 0 Then ultimo = 1
  ultimo = ultimo + 1
  conf.nombre = ultimo
  Put 1, 1, conf
  Rem puntero almacena la posicion donde debe grabarse el nuevo registro
  posicion = ultimo + 1
  Close
  GRABAR
  Unload FormDefinir
End Sub

Sub GRABAR()
  Close
  Open archconf For Random As 1 Len = largoC
  conf.Label1 = UCase(TextBox1.Text)
  conf.Label2 = UCase(TextBox2.Text)
  conf.Label3 = UCase(TextBox3.Text)
  conf.Label4 = UCase(TextBox4.Text)
  conf.Label5 = UCase(TextBox5.Text)
  conf.Label6 = UCase(TextBox6.Text)
  conf.Label7 = UCase(TextBox7.Text)
  conf.Label8 = UCase(TextBox8.Text)
  conf.Label9 = UCase(TextBox9.Text)
  conf.Label10 = UCase(TextBox10.Text)
  conf.nombre = UCase(TextBox11.Text)
  conf.varrep1 = UCase(TextBox13.Text)
  conf.varrep2 = UCase(TextBox14.Text)
  conf.comb11 = UCase(TextBox15.Text)
  conf.comb12 = UCase(TextBox16.Text)
  conf.comb13 = UCase(TextBox17.Text)
  conf.comb21 = UCase(TextBox18.Text)
  conf.comb22 = UCase(TextBox19.Text)
  conf.comb23 = UCase(TextBox20.Text)
  conf.comb31 = UCase(TextBox21.Text)
  conf.comb32 = UCase(TextBox22.Text)
  conf.comb33 = UCase(TextBox23.Text)
  conf.comb41 = UCase(TextBox24.Text)
  conf.comb42 = UCase(TextBox25.Text)
  conf.comb43 = UCase(TextBox26.Text)
  conf.var1 = UCase(TextBox27.Text)
  conf.var2 = UCase(TextBox28.Text)
  conf.var3 = UCase(TextBox29.Text)
  conf.var4 = UCase(TextBox30.Text)
  conf.var5 = UCase(TextBox31.Text)
  conf.var6 = UCase(TextBox32.Text)
  conf.var7 = UCase(TextBox33.Text)
  conf.var8 = UCase(TextBox34.Text)
  conf.var9 = UCase(TextBox35.Text)
  conf.var10 = UCase(TextBox36.Text)
  If CheckBox1.Value = True Then conf.ftribunal = "1"
  If CheckBox2.Value = True Then conf.fciudad = "1"
  If CheckBox3.Value = True Then conf.fjuez = "1"
  If CheckBox4.Value = True Then conf.fsecretario = "1"
  Put 1, posicion, conf
  Close
End Sub

Private Sub CommandButton2_Click()
  CommandButton1.Visible = False
  CommandButton3.Visible = True
  ListBox1.Visible = True
  ListBox1.Clear
  Close
  Open archconf For Random As 1 Len = largoC
  Get 1, 1, conf
  ultimo = Val(conf.nombre)
  For z% = 2 To ultimo + 1
    Get 1, z%, conf
    ListBox1.AddItem Str(z%) + " " + conf.nombre
  Next z%
End Sub

Private Sub UserForm_Initialize()
  ListBox1.Visible = False
End Sub