15.07.2013 Views

Microsoft Visual Basic - Encyclopaedia Gentium Boni

Microsoft Visual Basic - Encyclopaedia Gentium Boni

Microsoft Visual Basic - Encyclopaedia Gentium Boni

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

frmAssistant - 8<br />

chercher = "Nombres"<br />

ElseIf livre = "Deu" Then<br />

chercher = "Deutéronome"<br />

ElseIf livre = "Jos" Then<br />

chercher = "Josué"<br />

ElseIf livre = "Jdg" Then<br />

chercher = "Juges"<br />

ElseIf livre = "Rut" Then<br />

chercher = "Ruth"<br />

ElseIf livre = "1Sa" Then<br />

chercher = "1 Samuel"<br />

ElseIf livre = "2Sa" Then<br />

chercher = "2 Samuel"<br />

ElseIf livre = "1Ki" Then<br />

chercher = "1 Rois"<br />

ElseIf livre = "2Ki" Then<br />

chercher = "2 Rois"<br />

ElseIf livre = "1Ch" Then<br />

chercher = "1 Chroniques"<br />

ElseIf livre = "2 Chroniques" Then<br />

chercher = "2Ch"<br />

ElseIf livre = "Ezr" Then<br />

chercher = "Esdras"<br />

ElseIf livre = "Neh" Then<br />

chercher = "Néhémie"<br />

ElseIf livre = "Est" Then<br />

chercher = "Esther"<br />

ElseIf livre = "Job" Then<br />

chercher = "Job"<br />

ElseIf livre = "Psa" Then<br />

chercher = "Psaumes"<br />

ElseIf livre = "Pro" Then<br />

chercher = "Proverbes"<br />

ElseIf livre = "Ecc" Then<br />

chercher = "Ecclésiaste"<br />

ElseIf livre = "Sol" Then<br />

chercher = "Cantique des cantiques"<br />

ElseIf livre = "Isa" Then<br />

chercher = "Esaïe"<br />

ElseIf livre = "Jer" Then<br />

chercher = "Jérémie"<br />

ElseIf livre = "Lam" Then<br />

chercher = "Lamentations"<br />

ElseIf livre = "Eze" Then<br />

chercher = "Ezéchiel"<br />

ElseIf livre = "Dan" Then<br />

chercher = "Daniel"<br />

ElseIf livre = "Hos" Then<br />

chercher = "Osée"<br />

ElseIf livre = "Joe" Then<br />

chercher = "Joël"

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!