สร้าง barcode 128c ใน formula field Crystal Report

Dim LN As String = "530721-30289" 

Dim crv As New CrystalReport1

crv.SetParameterValue(0, LN)

CrystalReportViewer1.ReportSource = crv

CrystalReportViewer1.Show()

 Stringvar ln := Replace ({?LN},"-","");
    StringVar bcdb := ln;
    StringVar bcsucc := "}";
    NumberVar chksum :=105;
    NumberVar digitcnt := 1;


    if length(bcdb) mod 2 <> 0
    then bcdb := "0" & bcdb;

    NumberVar i;
    For i :=0 To Length(bcdb)-1 Do
    (
       
        NumberVar ch := Tonumber(Mid(bcdb,i+1,2));
        chksum  := chksum +(digitcnt * ch);
        if ch<89
            then bcsucc := bcsucc & Chr(ch+33)
        else
            bcsucc := bcsucc & Chr(ch+104);

            digitcnt := digitcnt +1;
            i := i +1;
    );

    NumberVar chksummod := chksum Mod 103;
    if chksummod < 89
    then (bcsucc := bcsucc & Chr(chksummod + 33))
    else (bcsucc := bcsucc & Chr(chksummod + 104));

    bcsucc := bcsucc & "~";