Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmBHSLXX - 2
cboLivre.AddItem ("Ezékiel")
cboLivre.AddItem ("Susanna")
cboLivre.AddItem ("Daniel")
cboLivre.AddItem ("Bel et Draco")
End Sub
Private Sub lblLicense_Click()
Dim license
license = App.Path & "\modules\parallel\00.ReadMe.txt"
'txtGauche.LoadFile (license)
Load frmBrowser
frmBrowser.cboAddress.Text = license
frmBrowser.Show
End Sub
Private Sub lblSource_Click()
Dim site$
site = "gopher://ccat.sas.upenn.edu:3333/11/Religious/Biblical/parallel"
Load frmBrowser
frmBrowser.cboAddress.Text = site
frmBrowser.Show
frmBrowser.Caption = "CCAT - Centre pour l'Analyse informatique de textes"
End Sub