Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmBible - 13
cboLivre.AddItem ("Exode")
cboLivre.AddItem ("Lévitique")
cboLivre.AddItem ("Nombres")
cboLivre.AddItem ("Deutéronome")
cboLivre.AddItem ("Josué")
cboLivre.AddItem ("Juges")
cboLivre.AddItem ("Ruth")
cboLivre.AddItem ("1 Samuel")
cboLivre.AddItem ("2 Samuel")
cboLivre.AddItem ("1 Rois")
cboLivre.AddItem ("2 Rois")
cboLivre.AddItem ("1 Chroniques")
cboLivre.AddItem ("2 Chroniques")
cboLivre.AddItem ("Esdras")
cboLivre.AddItem ("Néhémie")
cboLivre.AddItem ("Esther")
cboLivre.AddItem ("Judith")
cboLivre.AddItem ("Tobie")
cboLivre.AddItem ("1 Maccabées")
cboLivre.AddItem ("2 Maccabées")
cboLivre.AddItem ("Psaumes")
cboLivre.AddItem ("Proverbes")
cboLivre.AddItem ("Ecclésiaste")
cboLivre.AddItem ("Cantique des cantiques")
cboLivre.AddItem ("Job")
cboLivre.AddItem ("Sagesse")
cboLivre.AddItem ("Osée")
cboLivre.AddItem ("Amos")
cboLivre.AddItem ("Michée")
cboLivre.AddItem ("Joël")
cboLivre.AddItem ("Abdias")
cboLivre.AddItem ("Jonas")
cboLivre.AddItem ("Nahum")
cboLivre.AddItem ("Habbacuc")
cboLivre.AddItem ("Sophonie")
cboLivre.AddItem ("Aggée")
cboLivre.AddItem ("Zacharie")
cboLivre.AddItem ("Malachie")
cboLivre.AddItem ("Isaïe")
cboLivre.AddItem ("Jérémie")
cboLivre.AddItem ("Baruch")
cboLivre.AddItem ("Lamentations")
cboLivre.AddItem ("Ezékiel")
cboLivre.AddItem ("Daniel")
cboLivre.AddItem ("Matthieu")
cboLivre.AddItem ("Marc")
cboLivre.AddItem ("Luc")
cboLivre.AddItem ("Jean")
cboLivre.AddItem ("Actes")
cboLivre.AddItem ("Romains")
cboLivre.AddItem ("1 Corinthiens")
cboLivre.AddItem ("2 Corinthiens")
cboLivre.AddItem ("Galates")
cboLivre.AddItem ("Ephésiens")
cboLivre.AddItem ("Philippiens")
cboLivre.AddItem ("Colossiens")
cboLivre.AddItem ("1 Thessaloniciens")
cboLivre.AddItem ("2 Thessaloniciens")
cboLivre.AddItem ("1 Timothée")
cboLivre.AddItem ("2 Timothée")
cboLivre.AddItem ("Tite")
cboLivre.AddItem ("Philémon")
cboLivre.AddItem ("Hébreux")
cboLivre.AddItem ("Jacques")
cboLivre.AddItem ("1 Pierre")
cboLivre.AddItem ("2 Pierre")
cboLivre.AddItem ("1 Jean")
cboLivre.AddItem ("2 Jean")
cboLivre.AddItem ("3 Jean")
cboLivre.AddItem ("Jude")
cboLivre.AddItem ("Révélation")
sortievocale.Visible = False
ElseIf cboVersion.Text = "ASV" Or _
cboVersion.Text = "KJV" Or _