Public Class NComprobanteDinero
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Public WithEvents BotonEliminar As System.Windows.Forms.Button
    Public WithEvents Imagen4 As System.Windows.Forms.PictureBox
    Public WithEvents Imagen3 As System.Windows.Forms.PictureBox
    Public WithEvents Imagen1 As System.Windows.Forms.PictureBox
    Public WithEvents Imagen2 As System.Windows.Forms.PictureBox
    Friend WithEvents EtiquetaUsuario As System.Windows.Forms.Label
    Friend WithEvents TextoUsuario As System.Windows.Forms.TextBox
    Friend WithEvents EtiquetaSeleccionComprobante As System.Windows.Forms.Label
    Friend WithEvents CombinadaComprobante As System.Windows.Forms.ComboBox
    Friend WithEvents OrejaComprobanteDinero As System.Windows.Forms.TabControl
    Friend WithEvents OrejaComprobanteDineroDato As System.Windows.Forms.TabPage
    Friend WithEvents OrejaComprobanteDineroCuenta As System.Windows.Forms.TabPage
    Friend WithEvents DisenoCartera As System.Windows.Forms.GroupBox
    Friend WithEvents OpcionSuma As System.Windows.Forms.RadioButton
    Friend WithEvents OpcionResta As System.Windows.Forms.RadioButton
    Friend WithEvents DisenoMovimiento As System.Windows.Forms.GroupBox
    Friend WithEvents DisenoImpresión As System.Windows.Forms.GroupBox
    Friend WithEvents OpcionPregunta As System.Windows.Forms.RadioButton
    Friend WithEvents OpcionImprime As System.Windows.Forms.RadioButton
    Friend WithEvents OpcionNoImprime As System.Windows.Forms.RadioButton
    Friend WithEvents TextoNombre As System.Windows.Forms.TextBox
    Friend WithEvents EtiquetaNombre As System.Windows.Forms.Label
    Friend WithEvents EtiquetaObervacion As System.Windows.Forms.Label
    Friend WithEvents CombinadaImpresora As System.Windows.Forms.ComboBox
    Friend WithEvents EtiquetaImpresora As System.Windows.Forms.Label
    Friend WithEvents EtiquetaComentario As System.Windows.Forms.Label
    Friend WithEvents TextoReferencia As System.Windows.Forms.TextBox
    Friend WithEvents EtiquetaReferencia As System.Windows.Forms.Label
    Friend WithEvents TextoCopia As System.Windows.Forms.TextBox
    Friend WithEvents EtiquetaCopia As System.Windows.Forms.Label
    Public WithEvents BotonModificar As System.Windows.Forms.Button
    Friend WithEvents CheckConImputarProducto As System.Windows.Forms.CheckBox
    Friend WithEvents CheckConCalculoPromedio As System.Windows.Forms.CheckBox
    Friend WithEvents TextoObservacion As System.Windows.Forms.TextBox
    Friend WithEvents OpcionProveedor As System.Windows.Forms.RadioButton
    Friend WithEvents OpcionBanco As System.Windows.Forms.RadioButton
    Friend WithEvents OpcionCliente As System.Windows.Forms.RadioButton
    Public WithEvents BotonNuevo As System.Windows.Forms.Button
    Public WithEvents BotonCerrar As System.Windows.Forms.Button
    Friend WithEvents OpcionEntradaSalida As System.Windows.Forms.RadioButton
    Friend WithEvents CheckConEntradaSalidaValores As System.Windows.Forms.CheckBox
    Friend WithEvents ETiquetaComentarioImpresion As System.Windows.Forms.Label
    Friend WithEvents EtiquetaLetra As System.Windows.Forms.Label
    Friend WithEvents CombinadaLetra As System.Windows.Forms.ComboBox
    Friend WithEvents PrintDocument As System.Drawing.Printing.PrintDocument
    Friend WithEvents CheckPrevisualizar As System.Windows.Forms.CheckBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(NComprobanteDinero))
        Me.BotonEliminar = New System.Windows.Forms.Button
        Me.BotonNuevo = New System.Windows.Forms.Button
        Me.BotonModificar = New System.Windows.Forms.Button
        Me.Imagen4 = New System.Windows.Forms.PictureBox
        Me.Imagen3 = New System.Windows.Forms.PictureBox
        Me.Imagen1 = New System.Windows.Forms.PictureBox
        Me.BotonCerrar = New System.Windows.Forms.Button
        Me.Imagen2 = New System.Windows.Forms.PictureBox
        Me.EtiquetaUsuario = New System.Windows.Forms.Label
        Me.TextoUsuario = New System.Windows.Forms.TextBox
        Me.EtiquetaSeleccionComprobante = New System.Windows.Forms.Label
        Me.CombinadaComprobante = New System.Windows.Forms.ComboBox
        Me.OrejaComprobanteDinero = New System.Windows.Forms.TabControl
        Me.OrejaComprobanteDineroDato = New System.Windows.Forms.TabPage
        Me.EtiquetaLetra = New System.Windows.Forms.Label
        Me.CombinadaLetra = New System.Windows.Forms.ComboBox
        Me.ETiquetaComentarioImpresion = New System.Windows.Forms.Label
        Me.TextoCopia = New System.Windows.Forms.TextBox
        Me.EtiquetaCopia = New System.Windows.Forms.Label
        Me.TextoReferencia = New System.Windows.Forms.TextBox
        Me.EtiquetaReferencia = New System.Windows.Forms.Label
        Me.CheckConImputarProducto = New System.Windows.Forms.CheckBox
        Me.CheckConCalculoPromedio = New System.Windows.Forms.CheckBox
        Me.CheckConEntradaSalidaValores = New System.Windows.Forms.CheckBox
        Me.EtiquetaObervacion = New System.Windows.Forms.Label
        Me.TextoObservacion = New System.Windows.Forms.TextBox
        Me.TextoNombre = New System.Windows.Forms.TextBox
        Me.EtiquetaNombre = New System.Windows.Forms.Label
        Me.OrejaComprobanteDineroCuenta = New System.Windows.Forms.TabPage
        Me.CheckPrevisualizar = New System.Windows.Forms.CheckBox
        Me.EtiquetaComentario = New System.Windows.Forms.Label
        Me.EtiquetaImpresora = New System.Windows.Forms.Label
        Me.CombinadaImpresora = New System.Windows.Forms.ComboBox
        Me.DisenoCartera = New System.Windows.Forms.GroupBox
        Me.OpcionSuma = New System.Windows.Forms.RadioButton
        Me.OpcionResta = New System.Windows.Forms.RadioButton
        Me.DisenoMovimiento = New System.Windows.Forms.GroupBox
        Me.OpcionEntradaSalida = New System.Windows.Forms.RadioButton
        Me.OpcionBanco = New System.Windows.Forms.RadioButton
        Me.OpcionProveedor = New System.Windows.Forms.RadioButton
        Me.OpcionCliente = New System.Windows.Forms.RadioButton
        Me.DisenoImpresión = New System.Windows.Forms.GroupBox
        Me.OpcionPregunta = New System.Windows.Forms.RadioButton
        Me.OpcionImprime = New System.Windows.Forms.RadioButton
        Me.OpcionNoImprime = New System.Windows.Forms.RadioButton
        Me.PrintDocument = New System.Drawing.Printing.PrintDocument
        Me.OrejaComprobanteDinero.SuspendLayout()
        Me.OrejaComprobanteDineroDato.SuspendLayout()
        Me.OrejaComprobanteDineroCuenta.SuspendLayout()
        Me.DisenoCartera.SuspendLayout()
        Me.DisenoMovimiento.SuspendLayout()
        Me.DisenoImpresión.SuspendLayout()
        Me.SuspendLayout()
        '
        'BotonEliminar
        '
        Me.BotonEliminar.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.BotonEliminar.BackColor = System.Drawing.SystemColors.Control
        Me.BotonEliminar.Cursor = System.Windows.Forms.Cursors.Default
        Me.BotonEliminar.Enabled = False
        Me.BotonEliminar.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.BotonEliminar.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BotonEliminar.ForeColor = System.Drawing.SystemColors.ControlText
        Me.BotonEliminar.Location = New System.Drawing.Point(448, 256)
        Me.BotonEliminar.Name = "BotonEliminar"
        Me.BotonEliminar.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.BotonEliminar.Size = New System.Drawing.Size(120, 25)
        Me.BotonEliminar.TabIndex = 19
        Me.BotonEliminar.Text = "&Eliminar comprobante"
        '
        'BotonNuevo
        '
        Me.BotonNuevo.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.BotonNuevo.BackColor = System.Drawing.SystemColors.Control
        Me.BotonNuevo.Cursor = System.Windows.Forms.Cursors.Default
        Me.BotonNuevo.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.BotonNuevo.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BotonNuevo.ForeColor = System.Drawing.SystemColors.ControlText
        Me.BotonNuevo.Location = New System.Drawing.Point(448, 176)
        Me.BotonNuevo.Name = "BotonNuevo"
        Me.BotonNuevo.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.BotonNuevo.Size = New System.Drawing.Size(120, 25)
        Me.BotonNuevo.TabIndex = 19
        Me.BotonNuevo.Text = "&Nuevo comprobante"
        '
        'BotonModificar
        '
        Me.BotonModificar.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.BotonModificar.BackColor = System.Drawing.SystemColors.Control
        Me.BotonModificar.Cursor = System.Windows.Forms.Cursors.Default
        Me.BotonModificar.Enabled = False
        Me.BotonModificar.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.BotonModificar.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BotonModificar.ForeColor = System.Drawing.SystemColors.ControlText
        Me.BotonModificar.Location = New System.Drawing.Point(448, 56)
        Me.BotonModificar.Name = "BotonModificar"
        Me.BotonModificar.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.BotonModificar.Size = New System.Drawing.Size(120, 32)
        Me.BotonModificar.TabIndex = 18
        Me.BotonModificar.Text = "&Modificar comprobante"
        '
        'Imagen4
        '
        Me.Imagen4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Imagen4.Cursor = System.Windows.Forms.Cursors.Default
        Me.Imagen4.Location = New System.Drawing.Point(496, 216)
        Me.Imagen4.Name = "Imagen4"
        Me.Imagen4.Size = New System.Drawing.Size(33, 33)
        Me.Imagen4.TabIndex = 64
        Me.Imagen4.TabStop = False
        '
        'Imagen3
        '
        Me.Imagen3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Imagen3.Cursor = System.Windows.Forms.Cursors.Default
        Me.Imagen3.Location = New System.Drawing.Point(496, 136)
        Me.Imagen3.Name = "Imagen3"
        Me.Imagen3.Size = New System.Drawing.Size(32, 32)
        Me.Imagen3.TabIndex = 65
        Me.Imagen3.TabStop = False
        '
        'Imagen1
        '
        Me.Imagen1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Imagen1.Cursor = System.Windows.Forms.Cursors.Default
        Me.Imagen1.Location = New System.Drawing.Point(496, 16)
        Me.Imagen1.Name = "Imagen1"
        Me.Imagen1.Size = New System.Drawing.Size(32, 32)
        Me.Imagen1.TabIndex = 66
        Me.Imagen1.TabStop = False
        '
        'BotonCerrar
        '
        Me.BotonCerrar.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.BotonCerrar.BackColor = System.Drawing.SystemColors.Control
        Me.BotonCerrar.Cursor = System.Windows.Forms.Cursors.Default
        Me.BotonCerrar.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.BotonCerrar.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.BotonCerrar.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BotonCerrar.ForeColor = System.Drawing.SystemColors.ControlText
        Me.BotonCerrar.Location = New System.Drawing.Point(448, 344)
        Me.BotonCerrar.Name = "BotonCerrar"
        Me.BotonCerrar.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.BotonCerrar.Size = New System.Drawing.Size(120, 25)
        Me.BotonCerrar.TabIndex = 20
        Me.BotonCerrar.Text = "&Cerrar ventana"
        '
        'Imagen2
        '
        Me.Imagen2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Imagen2.Cursor = System.Windows.Forms.Cursors.Default
        Me.Imagen2.Location = New System.Drawing.Point(496, 304)
        Me.Imagen2.Name = "Imagen2"
        Me.Imagen2.Size = New System.Drawing.Size(32, 32)
        Me.Imagen2.TabIndex = 60
        Me.Imagen2.TabStop = False
        '
        'EtiquetaUsuario
        '
        Me.EtiquetaUsuario.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.EtiquetaUsuario.AutoSize = True
        Me.EtiquetaUsuario.Location = New System.Drawing.Point(32, 400)
        Me.EtiquetaUsuario.Name = "EtiquetaUsuario"
        Me.EtiquetaUsuario.Size = New System.Drawing.Size(128, 16)
        Me.EtiquetaUsuario.TabIndex = 122
        Me.EtiquetaUsuario.Text = "Ultimo usuario modificó :"
        '
        'TextoUsuario
        '
        Me.TextoUsuario.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.TextoUsuario.BackColor = System.Drawing.SystemColors.Control
        Me.TextoUsuario.Location = New System.Drawing.Point(176, 400)
        Me.TextoUsuario.Name = "TextoUsuario"
        Me.TextoUsuario.ReadOnly = True
        Me.TextoUsuario.Size = New System.Drawing.Size(200, 20)
        Me.TextoUsuario.TabIndex = 121
        Me.TextoUsuario.Text = ""
        '
        'EtiquetaSeleccionComprobante
        '
        Me.EtiquetaSeleccionComprobante.AutoSize = True
        Me.EtiquetaSeleccionComprobante.Location = New System.Drawing.Point(16, 24)
        Me.EtiquetaSeleccionComprobante.Name = "EtiquetaSeleccionComprobante"
        Me.EtiquetaSeleccionComprobante.Size = New System.Drawing.Size(129, 16)
        Me.EtiquetaSeleccionComprobante.TabIndex = 126
        Me.EtiquetaSeleccionComprobante.Text = "Comprobante de dinero :"
        '
        'CombinadaComprobante
        '
        Me.CombinadaComprobante.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.CombinadaComprobante.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.CombinadaComprobante.Location = New System.Drawing.Point(152, 24)
        Me.CombinadaComprobante.Name = "CombinadaComprobante"
        Me.CombinadaComprobante.Size = New System.Drawing.Size(280, 21)
        Me.CombinadaComprobante.Sorted = True
        Me.CombinadaComprobante.TabIndex = 0
        '
        'OrejaComprobanteDinero
        '
        Me.OrejaComprobanteDinero.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.OrejaComprobanteDinero.Controls.Add(Me.OrejaComprobanteDineroDato)
        Me.OrejaComprobanteDinero.Controls.Add(Me.OrejaComprobanteDineroCuenta)
        Me.OrejaComprobanteDinero.Location = New System.Drawing.Point(16, 64)
        Me.OrejaComprobanteDinero.Name = "OrejaComprobanteDinero"
        Me.OrejaComprobanteDinero.SelectedIndex = 0
        Me.OrejaComprobanteDinero.Size = New System.Drawing.Size(416, 328)
        Me.OrejaComprobanteDinero.TabIndex = 136
        '
        'OrejaComprobanteDineroDato
        '
        Me.OrejaComprobanteDineroDato.Controls.Add(Me.EtiquetaLetra)
        Me.OrejaComprobanteDineroDato.Controls.Add(Me.CombinadaLetra)
        Me.OrejaComprobanteDineroDato.Controls.Add(Me.ETiquetaComentarioImpresion)
        Me.OrejaComprobanteDineroDato.Controls.Add(Me.TextoCopia)
        Me.OrejaComprobanteDineroDato.Controls.Add(Me.EtiquetaCopia)
        Me.OrejaComprobanteDineroDato.Controls.Add(Me.TextoReferencia)
        Me.OrejaComprobanteDineroDato.Controls.Add(Me.EtiquetaReferencia)
        Me.OrejaComprobanteDineroDato.Controls.Add(Me.CheckConImputarProducto)
        Me.OrejaComprobanteDineroDato.Controls.Add(Me.CheckConCalculoPromedio)
        Me.OrejaComprobanteDineroDato.Controls.Add(Me.CheckConEntradaSalidaValores)
        Me.OrejaComprobanteDineroDato.Controls.Add(Me.EtiquetaObervacion)
        Me.OrejaComprobanteDineroDato.Controls.Add(Me.TextoObservacion)
        Me.OrejaComprobanteDineroDato.Controls.Add(Me.TextoNombre)
        Me.OrejaComprobanteDineroDato.Controls.Add(Me.EtiquetaNombre)
        Me.OrejaComprobanteDineroDato.Location = New System.Drawing.Point(4, 22)
        Me.OrejaComprobanteDineroDato.Name = "OrejaComprobanteDineroDato"
        Me.OrejaComprobanteDineroDato.Size = New System.Drawing.Size(408, 302)
        Me.OrejaComprobanteDineroDato.TabIndex = 0
        Me.OrejaComprobanteDineroDato.Text = "Datos del comprobante"
        '
        'EtiquetaLetra
        '
        Me.EtiquetaLetra.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.EtiquetaLetra.AutoSize = True
        Me.EtiquetaLetra.Location = New System.Drawing.Point(296, 88)
        Me.EtiquetaLetra.Name = "EtiquetaLetra"
        Me.EtiquetaLetra.Size = New System.Drawing.Size(36, 16)
        Me.EtiquetaLetra.TabIndex = 157
        Me.EtiquetaLetra.Text = "Letra :"
        '
        'CombinadaLetra
        '
        Me.CombinadaLetra.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.CombinadaLetra.Items.AddRange(New Object() {"Sin", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "Ñ", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"})
        Me.CombinadaLetra.Location = New System.Drawing.Point(344, 88)
        Me.CombinadaLetra.Name = "CombinadaLetra"
        Me.CombinadaLetra.Size = New System.Drawing.Size(48, 21)
        Me.CombinadaLetra.TabIndex = 156
        '
        'ETiquetaComentarioImpresion
        '
        Me.ETiquetaComentarioImpresion.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.ETiquetaComentarioImpresion.AutoSize = True
        Me.ETiquetaComentarioImpresion.Location = New System.Drawing.Point(248, 120)
        Me.ETiquetaComentarioImpresion.Name = "ETiquetaComentarioImpresion"
        Me.ETiquetaComentarioImpresion.Size = New System.Drawing.Size(148, 16)
        Me.ETiquetaComentarioImpresion.TabIndex = 155
        Me.ETiquetaComentarioImpresion.Text = "Si está configurado imprimir."
        '
        'TextoCopia
        '
        Me.TextoCopia.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.TextoCopia.Location = New System.Drawing.Point(184, 120)
        Me.TextoCopia.Name = "TextoCopia"
        Me.TextoCopia.Size = New System.Drawing.Size(56, 20)
        Me.TextoCopia.TabIndex = 3
        Me.TextoCopia.Text = ""
        '
        'EtiquetaCopia
        '
        Me.EtiquetaCopia.AutoSize = True
        Me.EtiquetaCopia.Location = New System.Drawing.Point(16, 120)
        Me.EtiquetaCopia.Name = "EtiquetaCopia"
        Me.EtiquetaCopia.Size = New System.Drawing.Size(154, 16)
        Me.EtiquetaCopia.TabIndex = 154
        Me.EtiquetaCopia.Text = "Número de copias impresión :"
        '
        'TextoReferencia
        '
        Me.TextoReferencia.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.TextoReferencia.Location = New System.Drawing.Point(184, 88)
        Me.TextoReferencia.MaxLength = 3
        Me.TextoReferencia.Name = "TextoReferencia"
        Me.TextoReferencia.Size = New System.Drawing.Size(56, 20)
        Me.TextoReferencia.TabIndex = 2
        Me.TextoReferencia.Text = ""
        '
        'EtiquetaReferencia
        '
        Me.EtiquetaReferencia.AutoSize = True
        Me.EtiquetaReferencia.Location = New System.Drawing.Point(16, 88)
        Me.EtiquetaReferencia.Name = "EtiquetaReferencia"
        Me.EtiquetaReferencia.Size = New System.Drawing.Size(84, 16)
        Me.EtiquetaReferencia.TabIndex = 152
        Me.EtiquetaReferencia.Text = "Referencia (R) :"
        '
        'CheckConImputarProducto
        '
        Me.CheckConImputarProducto.Enabled = False
        Me.CheckConImputarProducto.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.CheckConImputarProducto.Location = New System.Drawing.Point(32, 264)
        Me.CheckConImputarProducto.Name = "CheckConImputarProducto"
        Me.CheckConImputarProducto.Size = New System.Drawing.Size(216, 16)
        Me.CheckConImputarProducto.TabIndex = 7
        Me.CheckConImputarProducto.Text = "I&mputar a comprobantes de productos"
        '
        'CheckConCalculoPromedio
        '
        Me.CheckConCalculoPromedio.Enabled = False
        Me.CheckConCalculoPromedio.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.CheckConCalculoPromedio.Location = New System.Drawing.Point(48, 240)
        Me.CheckConCalculoPromedio.Name = "CheckConCalculoPromedio"
        Me.CheckConCalculoPromedio.Size = New System.Drawing.Size(160, 16)
        Me.CheckConCalculoPromedio.TabIndex = 6
        Me.CheckConCalculoPromedio.Text = "&Calculo de fecha promedio"
        '
        'CheckConEntradaSalidaValores
        '
        Me.CheckConEntradaSalidaValores.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.CheckConEntradaSalidaValores.Location = New System.Drawing.Point(32, 216)
        Me.CheckConEntradaSalidaValores.Name = "CheckConEntradaSalidaValores"
        Me.CheckConEntradaSalidaValores.Size = New System.Drawing.Size(176, 16)
        Me.CheckConEntradaSalidaValores.TabIndex = 5
        Me.CheckConEntradaSalidaValores.Text = "&Ingreso/Egreso de valores"
        '
        'EtiquetaObervacion
        '
        Me.EtiquetaObervacion.AutoSize = True
        Me.EtiquetaObervacion.Location = New System.Drawing.Point(24, 160)
        Me.EtiquetaObervacion.Name = "EtiquetaObervacion"
        Me.EtiquetaObervacion.Size = New System.Drawing.Size(86, 16)
        Me.EtiquetaObervacion.TabIndex = 138
        Me.EtiquetaObervacion.Text = "Observaciones :"
        '
        'TextoObservacion
        '
        Me.TextoObservacion.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.TextoObservacion.Location = New System.Drawing.Point(16, 176)
        Me.TextoObservacion.MaxLength = 150
        Me.TextoObservacion.Name = "TextoObservacion"
        Me.TextoObservacion.Size = New System.Drawing.Size(376, 20)
        Me.TextoObservacion.TabIndex = 4
        Me.TextoObservacion.Text = ""
        '
        'TextoNombre
        '
        Me.TextoNombre.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.TextoNombre.Location = New System.Drawing.Point(184, 48)
        Me.TextoNombre.MaxLength = 50
        Me.TextoNombre.Name = "TextoNombre"
        Me.TextoNombre.Size = New System.Drawing.Size(208, 20)
        Me.TextoNombre.TabIndex = 1
        Me.TextoNombre.Text = ""
        '
        'EtiquetaNombre
        '
        Me.EtiquetaNombre.AutoSize = True
        Me.EtiquetaNombre.Location = New System.Drawing.Point(16, 48)
        Me.EtiquetaNombre.Name = "EtiquetaNombre"
        Me.EtiquetaNombre.Size = New System.Drawing.Size(170, 16)
        Me.EtiquetaNombre.TabIndex = 132
        Me.EtiquetaNombre.Text = "Nombre comprobante de dinero :"
        '
        'OrejaComprobanteDineroCuenta
        '
        Me.OrejaComprobanteDineroCuenta.Controls.Add(Me.CheckPrevisualizar)
        Me.OrejaComprobanteDineroCuenta.Controls.Add(Me.EtiquetaComentario)
        Me.OrejaComprobanteDineroCuenta.Controls.Add(Me.EtiquetaImpresora)
        Me.OrejaComprobanteDineroCuenta.Controls.Add(Me.CombinadaImpresora)
        Me.OrejaComprobanteDineroCuenta.Controls.Add(Me.DisenoCartera)
        Me.OrejaComprobanteDineroCuenta.Controls.Add(Me.DisenoMovimiento)
        Me.OrejaComprobanteDineroCuenta.Controls.Add(Me.DisenoImpresión)
        Me.OrejaComprobanteDineroCuenta.Location = New System.Drawing.Point(4, 22)
        Me.OrejaComprobanteDineroCuenta.Name = "OrejaComprobanteDineroCuenta"
        Me.OrejaComprobanteDineroCuenta.Size = New System.Drawing.Size(408, 302)
        Me.OrejaComprobanteDineroCuenta.TabIndex = 1
        Me.OrejaComprobanteDineroCuenta.Text = "Datos de cuenta"
        '
        'CheckPrevisualizar
        '
        Me.CheckPrevisualizar.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.CheckPrevisualizar.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.CheckPrevisualizar.Location = New System.Drawing.Point(232, 224)
        Me.CheckPrevisualizar.Name = "CheckPrevisualizar"
        Me.CheckPrevisualizar.Size = New System.Drawing.Size(80, 16)
        Me.CheckPrevisualizar.TabIndex = 161
        Me.CheckPrevisualizar.Text = "&Previsualizar"
        '
        'EtiquetaComentario
        '
        Me.EtiquetaComentario.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.EtiquetaComentario.Location = New System.Drawing.Point(216, 96)
        Me.EtiquetaComentario.Name = "EtiquetaComentario"
        Me.EtiquetaComentario.Size = New System.Drawing.Size(176, 120)
        Me.EtiquetaComentario.TabIndex = 139
        Me.EtiquetaComentario.Text = "El Movimiento indica con quién se hace el movimiento a o desde la cartera. La Ope" & _
        "ración indica si los valores se restan o suman en cartera y en la contraparte se" & _
        "leccionada en Movimiento se hace la operación inversa en saldo de cta cte, excep" & _
        "to Entrada/Salida."
        '
        'EtiquetaImpresora
        '
        Me.EtiquetaImpresora.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.EtiquetaImpresora.AutoSize = True
        Me.EtiquetaImpresora.Location = New System.Drawing.Point(224, 248)
        Me.EtiquetaImpresora.Name = "EtiquetaImpresora"
        Me.EtiquetaImpresora.Size = New System.Drawing.Size(113, 16)
        Me.EtiquetaImpresora.TabIndex = 138
        Me.EtiquetaImpresora.Text = "Selección impresora :"
        '
        'CombinadaImpresora
        '
        Me.CombinadaImpresora.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.CombinadaImpresora.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.CombinadaImpresora.Items.AddRange(New Object() {"Seleccionar impresora"})
        Me.CombinadaImpresora.Location = New System.Drawing.Point(216, 264)
        Me.CombinadaImpresora.Name = "CombinadaImpresora"
        Me.CombinadaImpresora.Size = New System.Drawing.Size(176, 20)
        Me.CombinadaImpresora.TabIndex = 17
        '
        'DisenoCartera
        '
        Me.DisenoCartera.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.DisenoCartera.Controls.Add(Me.OpcionSuma)
        Me.DisenoCartera.Controls.Add(Me.OpcionResta)
        Me.DisenoCartera.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.DisenoCartera.Location = New System.Drawing.Point(208, 24)
        Me.DisenoCartera.Name = "DisenoCartera"
        Me.DisenoCartera.Size = New System.Drawing.Size(184, 48)
        Me.DisenoCartera.TabIndex = 136
        Me.DisenoCartera.TabStop = False
        Me.DisenoCartera.Text = "Operación cartera"
        '
        'OpcionSuma
        '
        Me.OpcionSuma.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.OpcionSuma.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.OpcionSuma.Location = New System.Drawing.Point(104, 24)
        Me.OpcionSuma.Name = "OpcionSuma"
        Me.OpcionSuma.Size = New System.Drawing.Size(56, 16)
        Me.OpcionSuma.TabIndex = 16
        Me.OpcionSuma.Text = "Sum&a"
        '
        'OpcionResta
        '
        Me.OpcionResta.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.OpcionResta.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.OpcionResta.Location = New System.Drawing.Point(16, 24)
        Me.OpcionResta.Name = "OpcionResta"
        Me.OpcionResta.Size = New System.Drawing.Size(64, 16)
        Me.OpcionResta.TabIndex = 15
        Me.OpcionResta.Text = "&Resta"
        '
        'DisenoMovimiento
        '
        Me.DisenoMovimiento.Controls.Add(Me.OpcionEntradaSalida)
        Me.DisenoMovimiento.Controls.Add(Me.OpcionBanco)
        Me.DisenoMovimiento.Controls.Add(Me.OpcionProveedor)
        Me.DisenoMovimiento.Controls.Add(Me.OpcionCliente)
        Me.DisenoMovimiento.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.DisenoMovimiento.Location = New System.Drawing.Point(24, 24)
        Me.DisenoMovimiento.Name = "DisenoMovimiento"
        Me.DisenoMovimiento.Size = New System.Drawing.Size(176, 128)
        Me.DisenoMovimiento.TabIndex = 135
        Me.DisenoMovimiento.TabStop = False
        Me.DisenoMovimiento.Text = "Movimiento de cartera con"
        '
        'OpcionEntradaSalida
        '
        Me.OpcionEntradaSalida.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.OpcionEntradaSalida.Location = New System.Drawing.Point(24, 96)
        Me.OpcionEntradaSalida.Name = "OpcionEntradaSalida"
        Me.OpcionEntradaSalida.Size = New System.Drawing.Size(128, 16)
        Me.OpcionEntradaSalida.TabIndex = 11
        Me.OpcionEntradaSalida.Text = "&Entrada/Salida"
        '
        'OpcionBanco
        '
        Me.OpcionBanco.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.OpcionBanco.Location = New System.Drawing.Point(24, 72)
        Me.OpcionBanco.Name = "OpcionBanco"
        Me.OpcionBanco.Size = New System.Drawing.Size(128, 16)
        Me.OpcionBanco.TabIndex = 10
        Me.OpcionBanco.Text = "&Banco"
        '
        'OpcionProveedor
        '
        Me.OpcionProveedor.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.OpcionProveedor.Location = New System.Drawing.Point(24, 48)
        Me.OpcionProveedor.Name = "OpcionProveedor"
        Me.OpcionProveedor.Size = New System.Drawing.Size(128, 16)
        Me.OpcionProveedor.TabIndex = 9
        Me.OpcionProveedor.Text = "Pro&veedor"
        '
        'OpcionCliente
        '
        Me.OpcionCliente.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.OpcionCliente.Location = New System.Drawing.Point(24, 24)
        Me.OpcionCliente.Name = "OpcionCliente"
        Me.OpcionCliente.Size = New System.Drawing.Size(128, 16)
        Me.OpcionCliente.TabIndex = 8
        Me.OpcionCliente.Text = "Clie&nte"
        '
        'DisenoImpresión
        '
        Me.DisenoImpresión.Controls.Add(Me.OpcionPregunta)
        Me.DisenoImpresión.Controls.Add(Me.OpcionImprime)
        Me.DisenoImpresión.Controls.Add(Me.OpcionNoImprime)
        Me.DisenoImpresión.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.DisenoImpresión.Location = New System.Drawing.Point(24, 168)
        Me.DisenoImpresión.Name = "DisenoImpresión"
        Me.DisenoImpresión.Size = New System.Drawing.Size(176, 104)
        Me.DisenoImpresión.TabIndex = 134
        Me.DisenoImpresión.TabStop = False
        Me.DisenoImpresión.Text = "Configuración impresión"
        '
        'OpcionPregunta
        '
        Me.OpcionPregunta.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.OpcionPregunta.Location = New System.Drawing.Point(24, 72)
        Me.OpcionPregunta.Name = "OpcionPregunta"
        Me.OpcionPregunta.Size = New System.Drawing.Size(120, 16)
        Me.OpcionPregunta.TabIndex = 14
        Me.OpcionPregunta.Text = "&Pregunta"
        '
        'OpcionImprime
        '
        Me.OpcionImprime.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.OpcionImprime.Location = New System.Drawing.Point(24, 48)
        Me.OpcionImprime.Name = "OpcionImprime"
        Me.OpcionImprime.Size = New System.Drawing.Size(120, 16)
        Me.OpcionImprime.TabIndex = 13
        Me.OpcionImprime.Text = "&Imprime"
        '
        'OpcionNoImprime
        '
        Me.OpcionNoImprime.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.OpcionNoImprime.Location = New System.Drawing.Point(24, 24)
        Me.OpcionNoImprime.Name = "OpcionNoImprime"
        Me.OpcionNoImprime.Size = New System.Drawing.Size(120, 16)
        Me.OpcionNoImprime.TabIndex = 12
        Me.OpcionNoImprime.Text = "N&o imprime"
        '
        'NComprobanteDinero
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.CancelButton = Me.BotonCerrar
        Me.ClientSize = New System.Drawing.Size(584, 430)
        Me.Controls.Add(Me.OrejaComprobanteDinero)
        Me.Controls.Add(Me.EtiquetaSeleccionComprobante)
        Me.Controls.Add(Me.EtiquetaUsuario)
        Me.Controls.Add(Me.TextoUsuario)
        Me.Controls.Add(Me.CombinadaComprobante)
        Me.Controls.Add(Me.BotonEliminar)
        Me.Controls.Add(Me.BotonNuevo)
        Me.Controls.Add(Me.BotonModificar)
        Me.Controls.Add(Me.Imagen4)
        Me.Controls.Add(Me.Imagen3)
        Me.Controls.Add(Me.Imagen1)
        Me.Controls.Add(Me.BotonCerrar)
        Me.Controls.Add(Me.Imagen2)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.Name = "NComprobanteDinero"
        Me.Text = "Nuevo/Modificar/Eliminar configuración comprobante de dinero"
        Me.OrejaComprobanteDinero.ResumeLayout(False)
        Me.OrejaComprobanteDineroDato.ResumeLayout(False)
        Me.OrejaComprobanteDineroCuenta.ResumeLayout(False)
        Me.DisenoCartera.ResumeLayout(False)
        Me.DisenoMovimiento.ResumeLayout(False)
        Me.DisenoImpresión.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Dim SeleccionComprobanteDinero As String
    Dim CambioInterno As Boolean
    Dim DatosNoGuardados As Boolean

    Private Sub NComprobanteDinero_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Icono ventana
        SubIconVentana(Me, "money")
        SubIconNuevoModificarEliminar(Imagen2, Imagen1, Imagen4, Imagen3)
        ' Manejo de datos combinada
        CambioInterno = False
        SeleccionComprobanteDinero = ""

    End Sub

    Private Sub NComprobanteDinero_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
        ' Declaración variables
        Dim Ciclo As Int32
        ' Abrir tabla
        On Error Resume Next
        SubAbrirTablaBD("SELECT * FROM VTipoComprobanteDinero")
        ' Saber si hubo error
        If Not FnErrorADONET(Me) Then
            ' Limpiar controles
            SubLimpiarTexto()
            ' Cargar combinada comprobante de dinero
            CombinadaComprobante.Items.Clear()
            For Ciclo = 0 To TTabla.Rows.Count - 1
                Dim FTabla As DataRow = TTabla.Rows(Ciclo)
                CombinadaComprobante.Items.Add(FTabla("NombreComprobanteDinero").ToString)
            Next
            ' Cargar impresoras instaladas
            For Ciclo = 0 To PrintDocument.PrinterSettings.InstalledPrinters.Count - 1
                CombinadaImpresora.Items.Add(PrintDocument.PrinterSettings.InstalledPrinters.Item(Ciclo).ToString)
            Next
        End If
        On Error GoTo 0
        If SeleccionComprobanteDinero <> "" Then
            CambioInterno = True
            On Error Resume Next
            CombinadaComprobante.Text = SeleccionComprobanteDinero
            On Error GoTo 0
            CambioInterno = False
        End If
        ' Inicialización
        DatosNoGuardados = False
    End Sub

    Private Sub CombinadaComprobante_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CombinadaComprobante.SelectedIndexChanged
        Dim Continuar As Boolean
        ' En caso de no ser nulo, pasar valores a pantalla
        If CombinadaComprobante.Text <> "" And Not CambioInterno Then
            ' Verifcar que no haya datos sin registrar
            If DatosNoGuardados Then
                If MessageBox.Show(LeyendaNoGuardado, LeyendaTituloMensaje, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.Yes Then
                    Continuar = False
                Else
                    Continuar = True
                End If
            Else
                Continuar = True
            End If
            If Continuar Then
                ' Al no querer salvar los cambios, traemos la nueva informacion
                Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                On Error Resume Next
                ' Abrir tabla
                SubAbrirTablaBD("SELECT * FROM VTipoComprobanteDinero WHERE NombreComprobanteDinero = '" & CombinadaComprobante.Text & "'")
                ' Saber si hubo error
                If Not FnErrorADONET(Me) Then
                    ' Si no hubo error se sigue
                    Dim FTabla As DataRow = TTabla.Rows(0)
                    If CBool(Err.Number) Then
                        MessageBox.Show(LeyendaRegistroNoExiste & Err.Description, _
                                        LeyendaTituloMensaje, _
                                        MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Else
                        ' Pasar datos a pantalla
                        TextoNombre.Text = FTabla("NombreComprobanteDinero").ToString
                        TextoReferencia.Text = FTabla("Referencia").ToString
                        TextoCopia.Text = FTabla("Copias").ToString
                        CombinadaLetra.Text = FTabla("Letra").ToString
                        If CBool(FTabla("ConRecepciónValores").ToString) Then
                            CheckConEntradaSalidaValores.CheckState = CheckState.Checked
                        Else
                            CheckConEntradaSalidaValores.CheckState = CheckState.Unchecked
                        End If
                        If CBool(FTabla("ConCalculoPromedio").ToString) Then
                            CheckConCalculoPromedio.CheckState = CheckState.Checked
                        Else
                            CheckConCalculoPromedio.CheckState = CheckState.Unchecked
                        End If
                        If CBool(FTabla("ConImputarProducto").ToString) Then
                            CheckConImputarProducto.CheckState = CheckState.Checked
                        Else
                            CheckConImputarProducto.CheckState = CheckState.Unchecked
                        End If
                        If FTabla("MovimientoConCartera").ToString = "Cliente" Then
                            OpcionCliente.Checked = True
                        ElseIf FTabla("MovimientoConCartera").ToString = "Proveedor" Then
                            OpcionProveedor.Checked = True
                        ElseIf FTabla("MovimientoConCartera").ToString = "Banco" Then
                            OpcionBanco.Checked = True
                        ElseIf FTabla("MovimientoConCartera").ToString = "Salida/Entrada" Then
                            OpcionEntradaSalida.Checked = True
                        End If
                        If FTabla("OperacionEnCartera").ToString = "Suma" Then
                            OpcionSuma.Checked = True
                        ElseIf FTabla("OperacionEnCartera").ToString = "Resta" Then
                            OpcionResta.Checked = True
                        End If
                        If FTabla("ConfiguracionImpresion").ToString = "No imprime" Then
                            OpcionNoImprime.Checked = True
                        ElseIf FTabla("ConfiguracionImpresion").ToString = "Imprime" Then
                            OpcionImprime.Checked = True
                        ElseIf FTabla("ConfiguracionImpresion").ToString = "Pregunta" Then
                            OpcionPregunta.Checked = True
                        End If
                        CombinadaImpresora.Text = FTabla("TipoImpresora").ToString
                        CheckPrevisualizar.Checked = CBool(FTabla("ConPrevisualizar").ToString)
                        TextoObservacion.Text = FTabla("Observacion").ToString
                        TextoUsuario.Text = FTabla("Usuario").ToString
                        ' Deshabilitar la funcion no guardados
                        DatosNoGuardados = False
                        ' Llevar foco a caja de texto
                        TextoNombre.Focus()
                    End If
                End If
                On Error GoTo 0
                Me.Cursor = System.Windows.Forms.Cursors.Default
            End If
        End If
        ' Activar botón modificar en caso de haber algo seleccionado
        If CombinadaComprobante.Text = "" Then
            BotonModificar.Enabled = False
            BotonEliminar.Enabled = False
        Else
            BotonModificar.Enabled = True
            BotonEliminar.Enabled = True
        End If
        ' Indicar selección
        SeleccionComprobanteDinero = CombinadaComprobante.Text
    End Sub

    Private Sub SubLimpiarTexto()
        ' Limpiar los TextBox
        For Each c As Control In Me.Controls
            ' Limpiar los textbox
            If TypeOf c Is TextBox Then c.Text = ""
        Next
        ' Limpiar los opcion
        For Each c As RadioButton In Me.Controls
            ' Limpiar los opcion
            If TypeOf c Is RadioButton Then c.checked = False
        Next
        CheckConEntradaSalidaValores.Checked = False
        CheckConCalculoPromedio.Checked = False
        CheckConImputarProducto.Checked = False
        CombinadaImpresora.Text = ""
        'TextoUsuario.Text = ""
    End Sub

    Private Sub NComprobanteDinero_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        If DatosNoGuardados Then
            ' Hubo cambios y no se guardaron
            If MessageBox.Show(LeyendaNoGuardado, LeyendaTituloMensaje, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) = DialogResult.Yes Then
                ' Anular la salida
                e.Cancel = True
            End If
        End If
        If Not e.Cancel Then
            CType(Me.MdiParent, VentaTec).MenuPrincipal.MenuItems(3).MenuItems(13).Enabled = True
            CType(Me.MdiParent, VentaTec).BarraEstado.Panels(0).Text = ""
        End If
    End Sub

    Private Sub TextoCopia_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextoCopia.TextChanged
        DatosNoGuardados = True
    End Sub

    Private Sub TextoNombre_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextoNombre.TextChanged
        DatosNoGuardados = True
    End Sub

    Private Sub TextoObervacion_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextoObservacion.TextChanged
        DatosNoGuardados = True
    End Sub

    Private Sub CheckConEntradaSalidaValores_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckConEntradaSalidaValores.CheckedChanged
        DatosNoGuardados = True
        If CheckConEntradaSalidaValores.CheckState = CheckState.Checked Then
            CheckConCalculoPromedio.Enabled = True
        Else
            CheckConCalculoPromedio.Enabled = False
            CheckConCalculoPromedio.CheckState = CheckState.Unchecked
        End If
    End Sub

    Private Sub CheckConCalculoPromedio_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckConCalculoPromedio.CheckedChanged
        DatosNoGuardados = True
    End Sub

    Private Sub CheckImputar_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckConImputarProducto.CheckedChanged
        DatosNoGuardados = True
    End Sub

    Private Sub TextoReferencia_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextoReferencia.TextChanged
        DatosNoGuardados = True
    End Sub

    Private Sub OpcionResta_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpcionResta.CheckedChanged
        DatosNoGuardados = True
    End Sub

    Private Sub OpcionSuma_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpcionSuma.CheckedChanged
        DatosNoGuardados = True
    End Sub
    Private Sub CombinadaImpresora_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CombinadaImpresora.SelectedIndexChanged
        DatosNoGuardados = True
    End Sub

    Private Sub OpcionNoImprime_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpcionNoImprime.CheckedChanged
        DatosNoGuardados = True
        If OpcionNoImprime.Checked Then
            CheckPrevisualizar.Enabled = False
            CheckPrevisualizar.Checked = False
            CombinadaImpresora.Enabled = False
            TextoCopia.Enabled = False
        Else
            CheckPrevisualizar.Enabled = True
            CombinadaImpresora.Enabled = True
            TextoCopia.Enabled = True
        End If
    End Sub

    Private Sub OpcionImprime_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpcionImprime.CheckedChanged
        SunManejoControlTipoImpresora(OpcionImprime)
    End Sub

    Private Sub OpcionPregunta_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpcionPregunta.CheckedChanged
        SunManejoControlTipoImpresora(OpcionPregunta)
    End Sub

    Private Sub SunManejoControlTipoImpresora(ByVal ControlOpcion As RadioButton)
        DatosNoGuardados = True
        If ControlOpcion.Checked Then
            CheckPrevisualizar.Enabled = True
            CombinadaImpresora.Enabled = True
            TextoCopia.Enabled = True
        Else
            CheckPrevisualizar.Enabled = False
            CombinadaImpresora.Enabled = False
            TextoCopia.Enabled = False
        End If
    End Sub

    Private Sub OpcionCliente_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpcionCliente.CheckedChanged
        DatosNoGuardados = True
        If OpcionCliente.Checked Then
            CheckConImputarProducto.Enabled = True
        Else
            CheckConImputarProducto.Enabled = False
            CheckConImputarProducto.CheckState = CheckState.Unchecked
        End If
    End Sub

    Private Sub OpcionProveedor_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpcionProveedor.CheckedChanged
        DatosNoGuardados = True
        If OpcionProveedor.Checked Then
            CheckConImputarProducto.Enabled = True
        Else
            CheckConImputarProducto.Enabled = False
            CheckConImputarProducto.CheckState = CheckState.Unchecked
        End If
    End Sub

    Private Sub OpcionBanco_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpcionBanco.CheckedChanged
        DatosNoGuardados = True
        If Not OpcionBanco.Checked Then
            CheckConImputarProducto.Enabled = True
        Else
            CheckConImputarProducto.Enabled = False
            CheckConImputarProducto.CheckState = CheckState.Unchecked
        End If
    End Sub

    Private Sub OpcionEntradaSalida_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpcionEntradaSalida.CheckedChanged
        DatosNoGuardados = True
        If Not OpcionEntradaSalida.Checked Then
            CheckConImputarProducto.Enabled = True
        Else
            CheckConImputarProducto.Enabled = False
            CheckConImputarProducto.CheckState = CheckState.Unchecked
        End If
    End Sub

    Private Sub BotonEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotonEliminar.Click
        ' Si la combinada de seleccion de banco está vacía, no es posible eliminar
        If CombinadaComprobante.Text = "" Then
            ' La combinada está vacía, no es posible eliminar
            MessageBox.Show(LeyendaImposibleEliminar, _
                            LeyendaTituloMensaje, _
                            MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            ' Preguntar para confirmar la eliminación
            If MessageBox.Show(LeyendaEliminar & "el comprobante de dinero " & StrConv(CombinadaComprobante.Text, VbStrConv.UpperCase) & LeyendaPermanente, LeyendaTituloMensaje, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.Yes Then
                'If MsgBox(LeyendaEliminar & "el hijo   " & StrConv(GrillaHijo.get_TextMatrix(GrillaHijo.RowSel, 1), VbStrConv.UpperCase) & "   del empleado   " & StrConv(SeleccionEmpleado, VbStrConv.UpperCase) & LeyendaPermanente, MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question + MsgBoxStyle.ApplicationModal) = MsgBoxResult.Yes Then
                On Error Resume Next
                SubAbrirTablaBD("SELECT * FROM VTipoComprobanteDinero WHERE NombreComprobanteDinero = '" & CombinadaComprobante.Text & "'")
                ' Saber si hubo error
                If Not FnErrorADONET(Me) Then
                    ' Saber existencia de registro
                    Dim FTabla As DataRow = TTabla.Rows(0)
                    If CBool(Err.Number) Then
                        MessageBox.Show(LeyendaRegistroNoExisteEliminar & Err.Description, _
                                        LeyendaTituloMensaje, _
                                        MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Else
                        ' Eliminar registro
                        FTabla.Delete()
                        BDTabla.Update(TTabla)
                        TTabla.AcceptChanges()
                        If CBool(Err.Number) Then
                            ' Hubo error
                            MessageBox.Show(LeyendaNoEliminado & Err.Description, _
                                            LeyendaTituloMensaje, _
                                            MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Else
                            ' Borrar registro en pantalla
                            SubLimpiarTexto()
                            ' Borrar el banco en la combinada
                            CombinadaComprobante.Items.Remove(CombinadaComprobante.Text)
                            ' Indicar que fue con éxito
                            MessageBox.Show(LeyendaEliminado, _
                                            LeyendaTituloMensaje, _
                                            MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                            ' Deshabilitar la funcion no guardados
                            DatosNoGuardados = False
                        End If
                    End If
                End If
                On Error GoTo 0
            End If
        End If
    End Sub

    Private Sub BotonNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotonNuevo.Click
        Dim Continuar As Boolean
        ' Si la combinada de seleccion de comprobante no está vacía, puede suceder que deba hacer modifcar en vez de nuevo
        ' Saber también si está configurado preguntar
        If CombinadaComprobante.Text <> "" And PreguntarCrearModificar Then
            ' La combinada no está vacía y configurado para preguntar
            ' Preguntar por las dudas
            If MessageBox.Show(LeyendaPreguntaCrear, LeyendaTituloMensaje, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.Yes Then
                Continuar = True
            Else
                Continuar = False
            End If
        Else
            Continuar = True
        End If
        ' Si el usuario decidió continuar, se sigue con el proceso
        If Continuar Then
            Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
            On Error Resume Next
            ' Abrir tabla
            SubAbrirTablaBD("SELECT * FROM VTipoComprobanteDinero")
            ' Saber si hubo error
            If Not FnErrorADONET(Me) Then
                ' Si no hubo error se sigue
                Dim FNTabla As DataRow = TTabla.NewRow()
                If CBool(Err.Number) Then
                    MessageBox.Show(LeyendaNoCrearRegistro & Err.Description, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Error)
                Else
                    ' Si se imprime y no hay una impresora seleccionada no continuar
                    If (OpcionImprime.Checked Or OpcionPregunta.Checked) And CombinadaImpresora.Text = "" Then
                        MessageBox.Show(LeyendaNoImpresoraSeleccion, _
                                        LeyendaTituloMensaje, _
                                        MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Else
                        ' Crear datos del registro
                        FNTabla("NombreComprobanteDinero") = TextoNombre.Text
                        FNTabla("Referencia") = TextoReferencia.Text
                        FNTabla("Letra") = CombinadaLetra.Text
                        If CheckConEntradaSalidaValores.CheckState = CheckState.Checked Then
                            FNTabla("ConRecepciónValores") = True
                        Else
                            FNTabla("ConRecepciónValores") = False
                        End If
                        If CheckConCalculoPromedio.CheckState = CheckState.Checked Then
                            FNTabla("ConCalculoPromedio") = True
                        Else
                            FNTabla("ConCalculoPromedio") = False
                        End If
                        If CheckConImputarProducto.CheckState = CheckState.Checked Then
                            FNTabla("ConImputarProducto") = True
                        Else
                            FNTabla("ConImputarProducto") = False
                        End If
                        If OpcionCliente.Checked Then
                            FNTabla("MovimientoConCartera") = "Cliente"
                        ElseIf OpcionProveedor.Checked = True Then
                            FNTabla("MovimientoConCartera") = "Proveedor"
                        ElseIf OpcionBanco.Checked = True Then
                            FNTabla("MovimientoConCartera") = "Banco"
                        ElseIf OpcionEntradaSalida.Checked = True Then
                            FNTabla("MovimientoConCartera") = "Entrada/Salida"
                        End If
                        If OpcionSuma.Checked = True Then
                            FNTabla("OperacionEnCartera") = "Suma"
                        ElseIf OpcionResta.Checked = True Then
                            FNTabla("OperacionEnCartera") = "Resta"
                        End If
                        If OpcionNoImprime.Checked = True Then
                            FNTabla("ConfiguracionImpresion") = "No imprime"
                            FNTabla("TipoImpresora") = ""
                            FNTabla("ConPrevisualizar") = False
                        ElseIf OpcionImprime.Checked = True Then
                            FNTabla("ConfiguracionImpresion") = "Imprime"
                            FNTabla("TipoImpresora") = CombinadaImpresora.Text
                            FNTabla("ConPrevisualizar") = CheckPrevisualizar.Checked
                        ElseIf OpcionPregunta.Checked = True Then
                            FNTabla("ConfiguracionImpresion") = "Pregunta"
                            FNTabla("TipoImpresora") = CombinadaImpresora.Text
                            FNTabla("ConPrevisualizar") = CheckPrevisualizar.Checked
                        End If
                        If TextoCopia.Text <> "" And Not TextoCopia.ReadOnly Then
                            FNTabla("Copias") = CInt(TextoCopia.Text)
                        Else
                            FNTabla("Copias") = 0
                        End If
                        FNTabla("Observacion") = TextoObservacion.Text
                        FNTabla("Usuario") = UsuarioActual
                        If Not CBool(Err.Number) Then
                            ' Añadir la nueva fila a la tabla
                            TTabla.Rows.Add(FNTabla)
                            ' Guardar físicamente los datos en la base
                            BDTabla.Update(TTabla)
                            TTabla.AcceptChanges()
                            If CBool(Err.Number) Then
                                MessageBox.Show(LeyendaNoRepetirDatoComprobante & LeyendaNoCreado & Err.Description, _
                                                LeyendaTituloMensaje, _
                                                MessageBoxButtons.OK, MessageBoxIcon.Error)
                            Else
                                MessageBox.Show(LeyendaCreado, _
                                                LeyendaTituloMensaje, _
                                                MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                                ' Ingresar valor a combinada
                                CombinadaComprobante.Items.Add(TextoNombre.Text)
                                ' Cambiar el nombre
                                CambioInterno = True
                                CombinadaComprobante.Text = TextoNombre.Text
                                CambioInterno = False
                                ' Deshabilitar la funcion no guardados
                                DatosNoGuardados = False
                            End If
                        Else
                            MessageBox.Show(LeyendaErrorDato & Err.Description, _
                                            LeyendaTituloMensaje, _
                                            MessageBoxButtons.OK, MessageBoxIcon.Error)
                        End If
                    End If
                End If
            End If
            On Error GoTo 0
            Me.Cursor = System.Windows.Forms.Cursors.Default
        End If
    End Sub

    Private Sub BotonModificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotonModificar.Click
        Dim Continuar As Boolean
        ' Si la combinada de seleccion está vacía, no es posible grabar la modificación
        If CombinadaComprobante.Text = "" Then
            ' La combinada está vacía, no es posible modificar
            MessageBox.Show(LeyendaImposibleModificar, _
                            LeyendaTituloMensaje, _
                            MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            ' En caso de estar configurado, confirmar modificación
            If PreguntarCrearModificar Then
                ' Preguntar por las dudas
                If MessageBox.Show(LeyendaPreguntaModificar, LeyendaTituloMensaje, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.Yes Then
                    Continuar = True
                Else
                    Continuar = False
                End If
            Else
                Continuar = True
            End If
            ' Si el usuario decidió continuar, se sigue con el proceso
            If Continuar Then
                ' Si se imprime y no hay una impresora seleccionada no continuar
                If (OpcionImprime.Checked Or OpcionPregunta.Checked) And CombinadaImpresora.Text = "" Then
                    MessageBox.Show(LeyendaNoImpresoraSeleccion, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Error)
                Else
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    On Error Resume Next
                    ' Abrir tabla
                    SubAbrirTablaBD("SELECT * FROM VTipoComprobanteDinero WHERE NombreComprobanteDinero = '" & CombinadaComprobante.Text & "'")
                    ' Saber si hubo error
                    If Not FnErrorADONET(Me) Then
                        ' Si no hubo error se sigue
                        Dim FTabla As DataRow = TTabla.Rows(0)
                        If CBool(Err.Number) Then
                            MessageBox.Show(LeyendaRegistroNoExisteModificar & Err.Description, _
                                            LeyendaTituloMensaje, _
                                            MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Else
                            ' Registrar las modificaciones
                            FTabla("NombreComprobanteDinero") = TextoNombre.Text
                            FTabla("Referencia") = TextoReferencia.Text
                            FTabla("Letra") = CombinadaLetra.Text
                            If CheckConEntradaSalidaValores.CheckState = CheckState.Checked Then
                                FTabla("ConRecepciónValores") = True
                            Else
                                FTabla("ConRecepciónValores") = False
                            End If
                            If CheckConCalculoPromedio.CheckState = CheckState.Checked Then
                                FTabla("ConCalculoPromedio") = True
                            Else
                                FTabla("ConCalculoPromedio") = False
                            End If
                            If CheckConImputarProducto.CheckState = CheckState.Checked Then
                                FTabla("ConImputarProducto") = True
                            Else
                                FTabla("ConImputarProducto") = False
                            End If
                            If OpcionCliente.Checked Then
                                FTabla("MovimientoConCartera") = "Cliente"
                            ElseIf OpcionProveedor.Checked = True Then
                                FTabla("MovimientoConCartera") = "Proveedor"
                            ElseIf OpcionBanco.Checked = True Then
                                FTabla("MovimientoConCartera") = "Banco"
                            ElseIf OpcionEntradaSalida.Checked = True Then
                                FTabla("MovimientoConCartera") = "Entrada/Salida"
                            End If
                            If OpcionSuma.Checked = True Then
                                FTabla("OperacionEnCartera") = "Suma"
                            ElseIf OpcionResta.Checked = True Then
                                FTabla("OperacionEnCartera") = "Resta"
                            End If
                            If OpcionNoImprime.Checked = True Then
                                FTabla("ConfiguracionImpresion") = "No imprime"
                                FTabla("TipoImpresora") = ""
                                FTabla("ConPrevisualizar") = False
                            ElseIf OpcionImprime.Checked = True Then
                                FTabla("ConfiguracionImpresion") = "Imprime"
                                FTabla("TipoImpresora") = CombinadaImpresora.Text
                                FTabla("ConPrevisualizar") = CheckPrevisualizar.Checked
                            ElseIf OpcionPregunta.Checked = True Then
                                FTabla("ConfiguracionImpresion") = "Pregunta"
                                FTabla("TipoImpresora") = CombinadaImpresora.Text
                                FTabla("ConPrevisualizar") = CheckPrevisualizar.Checked
                            End If
                            If TextoCopia.Text <> "" And Not TextoCopia.ReadOnly Then
                                FTabla("Copias") = CInt(TextoCopia.Text)
                            Else
                                FTabla("Copias") = 0
                            End If
                            FTabla("Observacion") = TextoObservacion.Text
                            FTabla("Usuario") = UsuarioActual
                            If CBool(Err.Number) Then
                                MessageBox.Show(LeyendaErrorDato & Err.Description, _
                                                LeyendaTituloMensaje, _
                                                MessageBoxButtons.OK, MessageBoxIcon.Error)
                            Else
                                ' Pasar datos a base
                                BDTabla.Update(TTabla)
                                TTabla.AcceptChanges()
                                If CBool(Err.Number) Then
                                    ' Hubo error
                                    MessageBox.Show(LeyendaNoRepetirDatoComprobante & LeyendaNoModificado & Err.Description, _
                                                    LeyendaTituloMensaje, _
                                                    MessageBoxButtons.OK, MessageBoxIcon.Error)
                                Else
                                    ' Indicar que fue con éxito
                                    MessageBox.Show(LeyendaModificado, _
                                                    LeyendaTituloMensaje, _
                                                    MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                                    ' Saber si se modificó la clave primaria
                                    If TextoNombre.Text <> CombinadaComprobante.Text Then
                                        ' Cambió el nombre
                                        ' Modificar la lista y seleccionar el nuevo
                                        CambioInterno = True
                                        With CombinadaComprobante
                                            .Items.Add(TextoNombre.Text)
                                            .Items.Remove(.Text)
                                            .Text = TextoNombre.Text
                                        End With
                                        CambioInterno = False
                                    End If
                                    ' Deshabilitar la funcion no guardados
                                    DatosNoGuardados = False
                                End If
                            End If
                        End If
                    End If
                    On Error GoTo 0
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                End If
            End If
        End If
    End Sub

    Private Sub BotonCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotonCerrar.Click
        Me.Close()
    End Sub

    Private Sub BotonCerrar_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BotonCerrar.MouseMove
        ' Indicar en barra de estado lo que hace el botón
        CType(Me.MdiParent, VentaTec).BarraEstado.Panels(0).Text = LeyendaPresione & LeyendaCerrarVentana
    End Sub

    Private Sub BotonModificar_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BotonModificar.MouseMove
        ' Indicar en barra de estado lo que hace el botón
        CType(Me.MdiParent, VentaTec).BarraEstado.Panels(0).Text = LeyendaPresione & LeyendaModificarRegistro
    End Sub

    Private Sub BotonNuevo_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BotonNuevo.MouseMove
        ' Indicar en barra de estado lo que hace el botón
        CType(Me.MdiParent, VentaTec).BarraEstado.Panels(0).Text = LeyendaPresione & LeyendaNuevoRegistro
    End Sub

    Private Sub BotonEliminar_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BotonEliminar.MouseMove
        ' Indicar en barra de estado lo que hace el botón
        CType(Me.MdiParent, VentaTec).BarraEstado.Panels(0).Text = LeyendaPresione & LeyendaEliminarRegistro
    End Sub

    Private Sub CombinadaComprobante_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CombinadaComprobante.MouseMove
        ' Indicar en barra de estado lo que hace el botón
        CType(Me.MdiParent, VentaTec).BarraEstado.Panels(0).Text = LeyendaSeleccionRegistro
    End Sub

    Private Sub NComprobanteDinero_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        ' Borrar los posibles mensajes en barra de estado
        CType(Me.MdiParent, VentaTec).BarraEstado.Panels(0).Text = ""
    End Sub
End Class
