VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Form_Informes_Postulantes_Web 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Formulario de busqueda de postulantes web"
   ClientHeight    =   7560
   ClientLeft      =   45
   ClientTop       =   375
   ClientWidth     =   12900
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   7560
   ScaleWidth      =   12900
   Begin VB.Frame Frame_ConsBol 
      Caption         =   "Postulantes Web"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   7335
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   12615
      Begin VB.ComboBox Combo3 
         Height          =   315
         Left            =   4080
         TabIndex        =   17
         Text            =   "Combo1"
         Top             =   2400
         Width           =   2415
      End
      Begin VB.ComboBox Combo2 
         Height          =   315
         Left            =   4080
         TabIndex        =   16
         Text            =   "Combo1"
         Top             =   1680
         Width           =   2415
      End
      Begin VB.ComboBox Combo1 
         Height          =   315
         ItemData        =   "Form_Informes_Postulantes_Web.frx":0000
         Left            =   4080
         List            =   "Form_Informes_Postulantes_Web.frx":0002
         TabIndex        =   15
         Text            =   "Combo1"
         Top             =   960
         Width           =   2415
      End
      Begin VB.ComboBox Cmb_anio 
         Height          =   315
         Left            =   6960
         TabIndex        =   14
         Text            =   "Combo1"
         Top             =   960
         Width           =   1695
      End
      Begin VB.ListBox List1 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   2220
         ItemData        =   "Form_Informes_Postulantes_Web.frx":0004
         Left            =   360
         List            =   "Form_Informes_Postulantes_Web.frx":003B
         Style           =   1  'Checkbox
         TabIndex        =   13
         Top             =   720
         Width           =   2535
      End
      Begin VB.CommandButton Command1 
         Caption         =   "Imprimir"
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   855
         Left            =   10560
         Picture         =   "Form_Informes_Postulantes_Web.frx":0148
         Style           =   1  'Graphical
         TabIndex        =   12
         Top             =   1560
         Width           =   1455
      End
      Begin VB.Frame Frame_Grilla_Cons 
         Caption         =   "Resultados de la Consulta"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   2775
         Left            =   120
         TabIndex        =   8
         Top             =   3960
         Width           =   12375
         Begin MSFlexGridLib.MSFlexGrid Grd_Cons 
            Height          =   2415
            Left            =   120
            TabIndex        =   9
            TabStop         =   0   'False
            Top             =   240
            Width           =   12135
            _ExtentX        =   21405
            _ExtentY        =   4260
            _Version        =   393216
            Cols            =   19
            FocusRect       =   0
            FillStyle       =   1
            SelectionMode   =   1
            FormatString    =   $"Form_Informes_Postulantes_Web.frx":06A5
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
         End
      End
      Begin VB.CommandButton Btn_Cancelar 
         Caption         =   "Cancelar"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   10560
         TabIndex        =   7
         Top             =   2640
         Width           =   1455
      End
      Begin VB.CommandButton Btn_Cons_Bol 
         Caption         =   "Consultar"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   855
         Left            =   10560
         Picture         =   "Form_Informes_Postulantes_Web.frx":07B6
         Style           =   1  'Graphical
         TabIndex        =   6
         Top             =   480
         Width           =   1455
      End
      Begin VB.Frame Frm_CambFolioBlta 
         Caption         =   "Cambiar Folio Boleta"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   1575
         Left            =   4080
         TabIndex        =   1
         Top             =   4560
         Visible         =   0   'False
         Width           =   3255
         Begin VB.CommandButton Command3 
            Caption         =   "Cancelar"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   495
            Left            =   1800
            TabIndex        =   4
            Top             =   960
            Width           =   1215
         End
         Begin VB.CommandButton Btn_CamFolioBlta 
            Caption         =   "Cambiar Folio"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   495
            Left            =   240
            TabIndex        =   3
            Top             =   960
            Width           =   1215
         End
         Begin VB.TextBox Text_FolioBlta 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   420
            Left            =   1320
            TabIndex        =   2
            Top             =   360
            Width           =   1575
         End
         Begin VB.Label Label22 
            Caption         =   "Folio"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   12
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   480
            TabIndex        =   5
            Top             =   480
            Width           =   855
         End
      End
      Begin VB.Label Label2 
         Caption         =   "Seleccione año"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   255
         Left            =   6960
         TabIndex        =   18
         Top             =   600
         Width           =   1455
      End
      Begin VB.Label Label1 
         Caption         =   "Ordenar por:"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   255
         Left            =   4080
         TabIndex        =   11
         Top             =   600
         Width           =   1455
      End
      Begin VB.Label Label23 
         Caption         =   "Mostrar Campos:"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   255
         Left            =   360
         TabIndex        =   10
         Top             =   600
         Width           =   1455
      End
   End
End
Attribute VB_Name = "Form_Informes_Postulantes_Web"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Btn_Cons_Bol_Click()
'Private Sub Rec2Grid(ByRef REC As ADODB.Recordset, ByRef grid As Object, Optional ByVal Numeracion As Boolean = True)
    Dim objRS As ADODB.Recordset
    Set objRS = New ADODB.Recordset
    Dim var_sql As String
    'var_sql = "SELECT CONCAT(nombres_pos, ' ', ape_pat_pos, ' ', ape_mat_pos) AS Nombre_postulante, fecha_nac AS Fecha_de_nacimiento, Direccion, Comuna, telefono, curso_pos AS Curso_al_que_postula, colegio_pos AS Colegio_al_que_postula, CONCAT(nombres_apo, ' ', ape_pat_apo, ' ', ape_pat_apo) AS Nombre_apoderado, Mail, preg1 AS Cómo_se_enteró_de_la_Institución_Educacional_Boston_College, preg2 As Por_qué_nos_elije_como_opción_educacional_para_su_hijo, fecha As Fecha_de_postulacion, Numero As Numero_de_Postulacion, anio As Año FROM postulante_web where anio = " & Cmb_anio.Text
    If Cmb_anio.Text = "Todos" Then
    var_sql = "SELECT @ROW_NUMBER:=@ROW_NUMBER+1 AS correlativo, CONCAT(nombres_pos, ' ', ape_pat_pos, ' ', ape_mat_pos) AS Nombre_postulante, fecha_nac AS Fecha_de_nacimiento, Direccion, Comuna, telefono, curso_pos AS orden, IF(curso_pos='PLAY GROUP', 1, IF(curso_pos = 'PREKINDER', 2, IF(curso_pos = 'KINDER', 3, IF(curso_pos = '1 BASICO', 4,IF(curso_pos = '2 BASICO', 5, IF(curso_pos = '3 BASICO', 6, IF(curso_pos = '4 BASICO', 7, IF(curso_pos = '5 BASICO', 8, IF(curso_pos = '6 BASICO', 9, IF(curso_pos = '7 BASICO', 10, IF(curso_pos = '8 BASICO', 11, IF(curso_pos = '1 MEDIO', 12, IF(curso_pos = '2 MEDIO', 13, IF(curso_pos = '3 MEDIO', 14, IF(curso_pos = '4 MEDIO', 15, 16))))))))))))))) AS Curso_al_que_postula" _
    & ", colegio_pos AS Colegio_al_que_postula, CONCAT(nombres_apo, ' ', ape_pat_apo, ' ', ape_pat_apo) AS Nombre_apoderado, Mail, preg1 AS Cómo_se_enteró_de_la_Institución_Educacional_Boston_College, preg2 As Por_qué_nos_elije_como_opción_educacional_para_su_hijo, CONCAT(MID(fecha,7), '-', MID(fecha,4,2), '-', MID(fecha,1,2)) As Fecha_de_postulacion, Numero As Numero_de_Postulacion, anio As Año, col_pro AS colegio_procedencia FROM postulante_web, (SELECT @ROW_NUMBER:=0) r order by '" & Combo1.Text & "', '" & Combo2.Text & "', '" & Combo3.Text & "'"
    Else
    var_sql = "SELECT @ROW_NUMBER:=@ROW_NUMBER+1 AS correlativo, CONCAT(nombres_pos, ' ', ape_pat_pos, ' ', ape_mat_pos) AS Nombre_postulante, fecha_nac AS Fecha_de_nacimiento, Direccion, Comuna, telefono, curso_pos AS orden, IF(curso_pos='PLAY GROUP', 1, IF(curso_pos = 'PREKINDER', 2, IF(curso_pos = 'KINDER', 3, IF(curso_pos = '1 BASICO', 4,IF(curso_pos = '2 BASICO', 5, IF(curso_pos = '3 BASICO', 6, IF(curso_pos = '4 BASICO', 7, IF(curso_pos = '5 BASICO', 8, IF(curso_pos = '6 BASICO', 9, IF(curso_pos = '7 BASICO', 10, IF(curso_pos = '8 BASICO', 11, IF(curso_pos = '1 MEDIO', 12, IF(curso_pos = '2 MEDIO', 13, IF(curso_pos = '3 MEDIO', 14, IF(curso_pos = '4 MEDIO', 15, 16))))))))))))))) AS Curso_al_que_postula" _
    & ", colegio_pos AS Colegio_al_que_postula, CONCAT(nombres_apo, ' ', ape_pat_apo, ' ', ape_pat_apo) AS Nombre_apoderado, Mail, preg1 AS Cómo_se_enteró_de_la_Institución_Educacional_Boston_College, preg2 As Por_qué_nos_elije_como_opción_educacional_para_su_hijo, CONCAT(MID(fecha,7), '-', MID(fecha,4,2), '-', MID(fecha,1,2)) As Fecha_de_postulacion, Numero As Numero_de_Postulacion, anio As Año, col_pro AS colegio_procedencia FROM postulante_web, (SELECT @ROW_NUMBER:=0) r where anio = " & Cmb_anio.Text & " order by '" & Combo1.Text & "', '" & Combo2.Text & "', '" & Combo3.Text & "'"
    End If
    objRS.Open var_sql, conn
    If objRS.RecordCount <= 0 Then
    MsgBox "La busqueda no encontro resultados ", vbInformation
    Exit Sub
    End If
    Command1.Enabled = True
    Call Rec2Grid(objRS, Grd_Cons, True)
    objRS.Close
    conn.Execute "drop table if exists temp_postulados"
    conn.Execute "create table temp_postulados type = MyISAM " & var_sql
    End Sub
    
Private Sub Command1_Click()
 Call LimpiaFormulas(Form_main.CrystalReport, 30)
        Form_main.CrystalReport.ReportFileName = App.Path & "\rpt\postulados1.rpt"
        Form_main.CrystalReport.WindowTitle = "Proceso de Alumnos Nuevos Postulados"
        
        Form_main.CrystalReport.ReplaceSelectionFormula ("")
        
       ' Form_main.CrystalReport.Formulas(2) = "titulo='Proceso de Alumnos Nuevos Postulados para el " & Cmb_Agno & "'"
        Form_main.CrystalReport.WindowState = crptMaximized
       ' Form_main.CrystalReport.Formulas(1) = "colegio_info='" & Colegio_inf & "'"
        Form_main.CrystalReport.Destination = crptToWindow
        Form_main.CrystalReport.Action = 1
    Call LimpiaFormulas(Form_main.CrystalReport, 30)
        Form_main.CrystalReport.ReportFileName = App.Path & "\rpt\postulados2.rpt"
        Form_main.CrystalReport.WindowTitle = "Proceso de Alumnos Nuevos Postulados"
        
        Form_main.CrystalReport.ReplaceSelectionFormula ("")
        
       ' Form_main.CrystalReport.Formulas(2) = "titulo='Proceso de Alumnos Nuevos Postulados para el " & Cmb_Agno & "'"
        Form_main.CrystalReport.WindowState = crptMaximized
       ' Form_main.CrystalReport.Formulas(1) = "colegio_info='" & Colegio_inf & "'"
        Form_main.CrystalReport.Destination = crptToWindow
        Form_main.CrystalReport.Action = 1
End Sub

Private Sub Form_Load()
'Dim objRS As ADODB.Recordset
 '   Set objRS = New ADODB.Recordset
  '  Dim var_sql As String
   ' var_sql = "SHOW COLUMNS FROM postulante_web"
    'objRS.Open var_sql, conn
    'Lst_Campos_Grilla.Clear
    'While Not objRS.EOF
    'Lst_Campos_Grilla.AddItem objRS(0)
    'objRS.MoveNext
    'Wend
    'objRS.Close
    
    Cmb_anio.AddItem 2011
    Cmb_anio.AddItem 2012
    Cmb_anio.AddItem 2013
    Cmb_anio.Text = "Todos"
    
    Combo1.Text = ""
    Combo1.AddItem "Nombre_postulante"
    Combo1.AddItem "Fecha_de_nacimiento"
    Combo1.AddItem "Direccion"
    Combo1.AddItem "Comuna"
    Combo1.AddItem "telefono"
    Combo1.AddItem "Curso_al_que_postula"
    Combo1.AddItem "Colegio_al_que_postula"
    Combo1.AddItem "Nombre_apoderado"
    Combo1.AddItem "Mail"
    Combo1.AddItem "Cómo_se_enteró_de_la_Institución_Educacional_Boston_College"
    Combo1.AddItem "Por_qué_nos_elije_como_opción_educacional_para_su_hijo"
    Combo1.AddItem "Fecha_de_postulacion"
    Combo1.AddItem "Numero_de_Postulacion"
    Combo1.AddItem "Año"
    Combo1.AddItem "Nombre_postulante"
    
    Combo2.Text = ""
    Combo2.AddItem "Nombre_postulante"
    Combo2.AddItem "Fecha_de_nacimiento"
    Combo2.AddItem "Direccion"
    Combo2.AddItem "Comuna"
    Combo2.AddItem "telefono"
    Combo2.AddItem "Curso_al_que_postula"
    Combo2.AddItem "Colegio_al_que_postula"
    Combo2.AddItem "Nombre_apoderado"
    Combo2.AddItem "Mail"
    Combo2.AddItem "Cómo_se_enteró_de_la_Institución_Educacional_Boston_College"
    Combo2.AddItem "Por_qué_nos_elije_como_opción_educacional_para_su_hijo"
    Combo2.AddItem "Fecha_de_postulacion"
    Combo2.AddItem "Numero_de_Postulacion"
    Combo2.AddItem "Año"
    Combo2.AddItem "Nombre_postulante"
    
    Combo3.Text = ""
    Combo3.AddItem "Nombre_postulante"
    Combo3.AddItem "Fecha_de_nacimiento"
    Combo3.AddItem "Direccion"
    Combo3.AddItem "Comuna"
    Combo3.AddItem "telefono"
    Combo3.AddItem "Curso_al_que_postula"
    Combo3.AddItem "Colegio_al_que_postula"
    Combo3.AddItem "Nombre_apoderado"
    Combo3.AddItem "Mail"
    Combo3.AddItem "Cómo_se_enteró_de_la_Institución_Educacional_Boston_College"
    Combo3.AddItem "Por_qué_nos_elije_como_opción_educacional_para_su_hijo"
    Combo3.AddItem "Fecha_de_postulacion"
    Combo3.AddItem "Numero_de_Postulacion"
    Combo3.AddItem "Año"
    Combo3.AddItem "Nombre_postulante"
    
    List1.Selected(0) = True
    List1.Selected(1) = True
    List1.Selected(2) = True
    List1.Selected(3) = True
    List1.Selected(4) = True
    List1.Selected(5) = True
    List1.Selected(6) = True
    List1.Selected(7) = True
    List1.Selected(8) = True
    List1.Selected(9) = True
    List1.Selected(10) = True
    List1.Selected(11) = True
    List1.Selected(12) = True
    List1.Selected(13) = True
    List1.Selected(14) = True
    List1.Selected(15) = True
    List1.Selected(16) = True
    

End Sub

Private Sub Rec2Grid(ByRef REC As ADODB.Recordset, ByRef grid As Object, Optional ByVal Numeracion As Boolean = True)
    'grid.ClearStructure
    If REC.RecordCount > 0 Then
        grid.Cols = REC.Fields.count + 1
        grid.Rows = REC.RecordCount + 1
        grid.FixedCols = 1
        grid.FixedRows = 1
        grid.TextMatrix(0, 0) = "Nº"
        grid.ColWidth(0) = IIf(Numeracion, TextWidth(grid.TextMatrix(0, 0)) + 100, 0)
        For i = 1 To REC.Fields.count
            grid.TextMatrix(0, i) = UCase(REC.Fields(i - 1).Name)
            grid.ColWidth(i) = TextWidth(grid.TextMatrix(0, i)) + 100
        Next i
        REC.MoveFirst
        For i = 1 To REC.RecordCount
            grid.TextMatrix(i, 0) = i
            grid.ColWidth(0) = IIf(Numeracion, IIf(TextWidth(grid.TextMatrix(i, 0)) + 100 > grid.ColWidth(0), TextWidth(grid.TextMatrix(i, 0)) + 100, grid.ColWidth(0)), 0)
            For j = 1 To REC.Fields.count
                grid.TextMatrix(i, j) = IIf(IsNull(REC(j - 1)), "Null", REC(j - 1))
                grid.ColWidth(j) = IIf(TextWidth(grid.TextMatrix(i, j)) + 100 > grid.ColWidth(j), TextWidth(grid.TextMatrix(i, j)) + 100, grid.ColWidth(j))
            Next j
            REC.MoveNext
        Next i
    Else
        grid.Cols = 2
        grid.Rows = 2
    End If
End Sub

Private Sub MuestraColumnasBoletasSeleccionadas()
    Grd_Cons.ColWidth(0) = 500
    Grd_Cons.ColWidth(1) = IIf(List1.Selected(0), 1250, 0)
    Grd_Cons.ColWidth(2) = IIf(List1.Selected(1), 4000, 0)
    Grd_Cons.ColWidth(3) = IIf(List1.Selected(2), 3000, 0)
    Grd_Cons.ColWidth(4) = IIf(List1.Selected(3), 3000, 0)
    Grd_Cons.ColWidth(5) = IIf(List1.Selected(4), 3000, 0)
    Grd_Cons.ColWidth(6) = IIf(List1.Selected(5), 3000, 0)
    Grd_Cons.ColWidth(7) = IIf(List1.Selected(6), 1500, 0)
    Grd_Cons.ColWidth(8) = IIf(List1.Selected(7), 0, 0)
    Grd_Cons.ColWidth(9) = IIf(List1.Selected(8), 3000, 0)
    Grd_Cons.ColWidth(10) = IIf(List1.Selected(9), 4000, 0)
    Grd_Cons.ColWidth(11) = IIf(List1.Selected(10), 4000, 0)
    Grd_Cons.ColWidth(12) = IIf(List1.Selected(11), 6000, 0)
    Grd_Cons.ColWidth(13) = IIf(List1.Selected(12), 6000, 0)
    Grd_Cons.ColWidth(14) = IIf(List1.Selected(13), 4000, 0)
    Grd_Cons.ColWidth(15) = IIf(List1.Selected(14), 4000, 0)
    Grd_Cons.ColWidth(16) = IIf(List1.Selected(15), 4000, 0)
    Grd_Cons.ColWidth(17) = IIf(List1.Selected(16), 4000, 0)

    Grd_Cons.Refresh
End Sub

Private Sub LlenaListaColumBoletas()
    ' Lista de las Columnas de la grilla a mostrar.
    List1.AddItem "Folio "
    List1.AddItem "Estado"
    List1.AddItem "Colegio"
    List1.AddItem "Apoderado"
    List1.AddItem "Alumno"
    List1.AddItem "Procedencia"
    List1.AddItem "Fecha Blta."
    List1.AddItem "Monto"
    List1.AddItem "Exención"
    List1.AddItem "Estado Mens."
    List1.AddItem "Venc. Inic."
    List1.AddItem "Venc. Final"
    List1.AddItem "Folio Interno"
    List1.AddItem "Tipo Pago"
    List1.AddItem "Venc. Final"
    List1.AddItem "Folio Interno"
    List1.AddItem "Tipo Pago"
    
    List1.Selected(0) = True
    List1.Selected(1) = True
    List1.Selected(2) = True
    List1.Selected(3) = True
    List1.Selected(4) = True
    List1.Selected(5) = True
    List1.Selected(6) = True
    List1.Selected(7) = True
    List1.Selected(8) = True
    List1.Selected(9) = True
    List1.Selected(10) = True
    List1.Selected(11) = True
    List1.Selected(12) = True
    List1.Selected(13) = True
    List1.Selected(14) = True
    List1.Selected(15) = True
    List1.Selected(16) = True
End Sub

Private Sub List1_Click()
MuestraColumnasBoletasSeleccionadas
End Sub
