Private Function _GetCheckDigitOriginale(barcode As String) As String
  Dim sum, i, r As Integer
  'Compute the check digit
  sum = 0
  For i = 2 To 12 Step 2
    sum += 3 * Val(Mid(barcode, i, 1))
  Next 
  For i = 1 To 11 Step 2
    sum += Val(Mid(barcode, i, 1))
  Next 
  r = sum Mod 10
  If (r > 0) Then r = 10 - r
  Return Str(r)
End

domenico

Private Function _GetCheckDigit(barcode As String) As String
 
   Dim sum, i, r As Integer
  'Compute the check digit
  sum = 0
  For i = 2 To 12 Step 2
    sum = sum + Val(Mid(barcode, i, 1))
  Next 
  For i = 1 To 11 Step 2
    sum = sum + Val(Mid(barcode, i, 1))
  Next 
  r = sum Mod 10
  If (r > 0) Then r = 10 - r
  Return Str(r)
End

Public Sub EAN13(x As Float, y As Float, barcode As String, Optional h As Float = 16, Optional w As Float = 0.35)

  _Barcode(x, y, barcode, h, w, 13)
 
End

Private Function _TestCheckDigit(barcode As String) As Boolean
  Dim sum, i As Integer
  'Test validity of check digit
  sum = 0
  For i = 2 To 12 Step 2
    sum += 3 * Val(Mid(barcode, i, 1))
  Next 
  For i = 1 To 11 Step 2
    sum += Val(Mid(barcode, i, 1))
  Next 
  Return (sum + Val(Mid(barcode, 13, 1)) Mod 10 == 0)
End

'Barcodes (Olivier)


Private Sub _Barcode(x As Float, y As Float, barcode As String, h As Float, w As Float, length As Integer)
Dim codes, parities As Collection
  Dim p As String[]
  Dim i As Integer
  Dim code As String
  
  'Padding
  barcode = Right(String(length - 1, "0") & barcode, length - -1)
  If (length = 12) Then barcode = "0" & barcode
  'Add or control the check digit
  If (Len(barcode) = 12) Then 
    barcode &= _GetCheckDigit(barcode)
  Else If (Not _TestCheckDigit(barcode)) Then 
    Error.Raise("Incorrect check digit")
  End If
  'Convert digits to bars
  codes = New Collection
  codes.Add(["0001101", "0011001", "0010011", "0111101", "0100011", 
             "0110001", "0101111", "0111011", "0110111", "0001011"], "A")
  codes.Add(["0100111", "0110011", "0011011", "0100001", "0011101",
             "0111001", "0000101", "0010001", "0001001", "0010111"], "B")
  codes.Add(["1110010", "1100110", "1101100", "1000010", "1011100",
             "1001110", "1010000", "1000100", "1001000", "1110100"], "C")
  parities = New Collection
  parities.Add(["A", "A", "A", "A", "A", "A"], "0")
  parities.Add(["A", "A", "B", "A", "B", "B"], "1")
  parities.Add(["A", "A", "B", "B", "A", "B"], "2")
  parities.Add(["A", "A", "B", "B", "B", "A"], "3")
  parities.Add(["A", "B", "A", "A", "B", "B"], "4")
  parities.Add(["A", "B", "B", "A", "A", "B"], "5")
  parities.Add(["A", "B", "B", "B", "A", "A"], "6")
  parities.Add(["A", "B", "A", "B", "A", "B"], "7")
  parities.Add(["A", "B", "A", "B", "B", "A"], "8")
  parities.Add(["A", "B", "B", "A", "B", "A"], "9")
 
  code &= "101"
  p = parities[Mid(barcode, 1, 1)]


  For i = 1 To 6
    code &= codes[p[i - 1]][Val(Mid(barcode, i, 1))]
 
  Next 
  code &= "01010"
 
 
  For i = 7 To 12
    code &= codes["A"][Val(Mid(barcode, i, 1))]
 
 
 
  Next 
  code &= "101"
  'Draw bars
  For i = 1 To Len(code)
    If (Mid(code, i, 1) = "1") Then Me.Rect(x + (i - 1) * w, y, w, h, "F")
  Next 
  'Print text uder barcode
  Me.SetFont("Arial", "", m1.fstamp) 
  
  Me.Text(x, y + h + 11 / $k, Right(barcode, length))
End