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