Dim tpautas(14) As string
tpautas(1) = "Proporcione alternativas equivalentes al contenido visual y auditivo"
tpautas(2) = "No se basa sólo en el color"
tpautas(3) = "Utilice marcadores y hojas de estilos u hágalo apropiadamente"
tpautas(4) = "Identifique el idioma original usado"
tpautas(5) = "Cree tablas que se transformen correctamente"
tpautas(6) = "Asegure que las páginas que incorporan nuevas tecnologías se transformen correctamente"
tpautas(7) = "Asegure al usuario el control sobre los cambios de los contenidos tempodependientes"
tpautas(8) = "Asegure la accesibilidad directa de las interfaces de usuario incrustadas"
tpautas(9) = "Diseñe para la independencia del dispositivo"
tpautas(10) = "Utilice soluciones provisionales"
tpautas(11) = "Utilice las tecnologías y pautas W3C"
tpautas(12) = "Proporcione información de contexto y orientación"
tpautas(13) = "Proporcione mecanismos claros de navegación"
tpautas(14) = "Asegure que los documentos sean claros y simples"
NOTA: TENGO QUE LLAMAR A AL PRIMERA PAUTA PARA ESCRIBIRLA EN UNA CAJA[/font]