Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmReferences - 1
Private Sub btnPrecedent_Click()
If Val(txtPage.Text) > 0 Then
txtPage.Text = Val(txtPage.Text) - 1
End If
End Sub
Private Sub btnSuivant_Click()
If Val(txtPage.Text) < 581 Then
txtPage.Text = Val(txtPage.Text) + 1
End If
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub txtPage_Change()
'ges_014_0001.jpg
Dim page$
page = txtPage.Text
On Error GoTo apres:
f cboRef.Text = "Gesenius's Hebrew Grammar" Then
If page