Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmResultatStrong - 1
Private Sub Text1_Change()
End Sub
Private Sub Text1_Click()
Unload Me
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub lblNStrong_Click()
strong = lblNStrong.Caption
If Len(strong) < 20 Then Exit Sub
strong = Mid(strong, 10, 5)
If Left(strong, 4) = "0000" Then strong = Mid(strong, 5, Len(strong))
If Left(strong, 3) = "000" Then strong = Mid(strong, 4, Len(strong))
If Left(strong, 2) = "00" Then strong = Mid(strong, 3, Len(strong))
If Left(strong, 1) = "0" Then strong = Mid(strong, 2, Len(strong))
frmBrowser.cboAddress.Text = "http://levangile.com/Strong-Hebreu-" & strong & ".htm"
'1.htm
End Sub