English Function

 Function ingles_en(ByVal ingles As List(Of Object))

        'Ventana Menú Principal'
        menuprincipal.lblusuario.Text = "User:"
        menuprincipal.lblcontraseña.Text = "Password:"
        menuprincipal.cmdentrar.Text = "Enter"
        menuprincipal.español.Text = "Spanish"
        menuprincipal.ingles.Text = "English"
        menuprincipal.stripidioma.Text = "Language"

        'Ventana Herramientas'
        Herramientas.lblhola.Text = "Welcome"
        Herramientas.toolgestion.Text = "Company Management"
        Herramientas.toolagregar.Text = "Add"
        Herramientas.toolmodificar.Text = "Modify"
        Herramientas.toollistado.Text = "List"
        Herramientas.lblgestion.Text = "Management"
        Herramientas.cmdsalir.Text = "Exit"
        Herramientas.cmdcuestionarios.Text = " Questionnaires"
        Herramientas.cmdevaluacion.Text = "Risk evaluation"
        Herramientas.cmdinventario.Text = "Inventory"
        Herramientas.cmdmapariesgo.Text = "Risk Map"
        Herramientas.lblnormas.Text = "Norms Information:"
        Herramientas.cmdusuarios.Text = "User Management"
        Herramientas.agenda.Text = "Schelude"
        Herramientas.Button1.Text = "Save"
        Herramientas.Button2.Text = "Remind"
        Herramientas.Button4.Text = "Delete"

        'Ventana Gestión de Usuarios'
        GestionUsuarios.checkagregar.Text = "Add user"
        GestionUsuarios.Label4.Text = "ID"
        GestionUsuarios.Label3.Text = "Name"
        GestionUsuarios.Label2.Text = "Phone"
        GestionUsuarios.Label5.Text = "User"
        GestionUsuarios.Label6.Text = "Role"
        GestionUsuarios.cmdagregar.Text = "Add"
        GestionUsuarios.checkmodificar.Text = "Modify user"
        GestionUsuarios.checkciM.Text = "ID"
        GestionUsuarios.checknombreM.Text = "Name"
        GestionUsuarios.checktelefonoM.Text = "Phone"
        GestionUsuarios.checkusuarioM.Text = "User"
        GestionUsuarios.checkrolM.Text = "Role"
        GestionUsuarios.cmdguardar.Text = "Save changes"
        GestionUsuarios.checkeliminar.Text = "Delete user"
        GestionUsuarios.Label1.Text = "ID"
        GestionUsuarios.cmdeliminar.Text = "Delete user"
        GestionUsuarios.cmdactualizar.Text = "Update"
        GestionUsuarios.Button1.Text = "Exit"

        'Ventana Mapa de Riesgo'
        Mapaderiesgo.lblmrempresa.Text = "Company name"
        Mapaderiesgo.cmdguardar.Text = "Save"
        Mapaderiesgo.cmdselectimagen.Text = "Select Image"
        Mapaderiesgo.cmdevaluacion.Text = "Perform Evaluation"
        Mapaderiesgo.cmdsalir.Text = "Exit"


        'Ventana Inventario'
        inventario.lblgestion.Text = "Inventory management"
        inventario.lblbuscar.Text = "Search:"
        inventario.lblcantidad.Text = "Quantity:"
        inventario.lblcantidadM.Text = "Quantity:"
        inventario.lblcmodificar.Text = "Modify:"
        inventario.lblelementoM.Text = "Element:"
        inventario.lblelemento.Text = "Element:"
        inventario.gboxagregar.Text = "Add"
        inventario.gboxeliminar.Text = "Remove"
        inventario.gboxmodificar.Text = "Modify"
        inventario.cmdsalir.Text = "Exit"
        inventario.cmdmodificar.Text = "Save changes"
        inventario.cmdeliminar.Text = "Remove"
        inventario.cmdfiltrar.Text = "Search"
        inventario.cmdagregar.Text = "Add"
        inventario.cmdactualizar.Text = "Update"

        'Ventana Formularios'
        formularios.lblempresa.Text = "Select Company:"
        formularios.lblpreguntabuscar.Text = "Search question"
        formularios.lblpregunta.Text = "Create question"
        formularios.lblrespuesta.Text = " Answer:"
        formularios.cmdactualizar.Text = "Refresh"
        formularios.cmdeliminar.Text = "Remove"
        formularios.cmdguardar.Text = "Save"
        formularios.cmdmodificar.Text = "Modify"
        formularios.cmdsalir.Text = "Exit"
        formularios.cmdreporte.Text = "Generate Report"
        formularios.checksi.Text = "Yes"
        formularios.Label7.Text = "Action"
        formularios.Label2.Text = "Probability level"
        formularios.Label8.Text = "Observation"
        formularios.checkmodificar.Text = "Modify Evaluation"
        formularios.lblnumeromodificar.Text = "Question number to modify"
        formularios.cmdmodificar.Text = "Modify"
        formularios.cmdguardarcambios.Text = "Save changes"
        formularios.checkeliminar.Text = "Delete Evaluation"
        formularios.lblnropregunta.Text = "Question number to delete"
        formularios.cmdeliminar.Text = "Delete Question"
        formularios.Label3.Text = "Value determination"
        formularios.lblexposicion.Text = "Exposure"
        formularios.lbldeficiencia.Text = "Deficiency"
        formularios.cmdaceptar.Text = "Accept"
        formularios.Label4.Text = "Risky Level"
        formularios.Label5.Text = "Probability"
        formularios.Label6.Text = "Consecuences"
        formularios.Button2.Text = "Save"
        formularios.Label9.Text = "Intervention date"
        formularios.checkno.Text = "No"
        formularios.Label1.Text = "Date"



        Evaluacion_de_riesgo.NivelDeRiesgoToolStripMenuItem.Text = "Level Risk Table"
        Evaluacion_de_riesgo.RealizarEvaluacionToolStripMenuItem.Text = "Perform Evaluation"

        Return (ingles)
    End Function