Вставка сгенерированных изображений в datagridview (ошибка GDI+)

 
    Dim img As Image
 
    Private Function drawcode(codeText As String) As Image
        Dim barcode = AxStrokeScribe1
        Dim S As String
        S = codeText ' передаю значение для генерации штрихкода
        barcode.Alphabet = enumAlphabet.CODE128
        barcode.CtlText = S
        If barcode.Error Then
            Microsoft.VisualBasic.MsgBox(barcode.ErrorDescription)
        Else
            img = barcode.GetPictureHandle(enumFormats.EMF, 80, 12) ' !!!!! Ругается тут
        End If
    End Function
 
'генерируем и вставляем в цикле изображения в ячейки датагрид
        Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        For Each dgwr As DataGridViewRow In DGV.Rows
            drawcode(dgwr.Cells.Item(15).Value)
            dgwr.Cells.Item(14).Value = New Bitmap(img)
        Next
    End Sub

Dim asd As Image
asd = New Bitmap(80, 12)
asd=barcode.getpicturehhandle....

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        For Each dgwr As DataGridViewRow In DGV.Rows
            Dim b = New BarcodeLib.Barcode
            b.Encode(TYPE.CODE128, dgwr.Cells.Item(15).Value.ToString, 500, 100)
            Dim b_img As Image
            Dim imgname As String = "image_"
            b_img = New Bitmap(500, 100)
            b_img = b.EncodedImage
            b_img.Save("c:\Project\PrintBarPL\PrintBarPL\bin\Debug\Barcode" & dgwr.Cells.Item(15).Value & ".code128")
' ^^^^^^^^^^^^^^^^^^^^
' ругается теперь на этой строке. Ошибка та же.
'-------------------------------------
            b_img.Dispose()
            GC.Collect()
            imgname = "c:\Project\PrintBarPL\PrintBarPL\bin\Debug\Barcode" & dgwr.Cells.Item(15).Value & ".code128"
            dgwr.Cells.Item(14).Value = New Bitmap(imgname)
        Next
    End Sub

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        For Each dgwr As DataGridViewRow In DGV.Rows
            Dim b = New BarcodeLib.Barcode
            b.Encode(TYPE.CODE128, dgwr.Cells.Item(15).Value.ToString, 500, 100)
            Dim imgname As String = "image_"
            Graphics.FromImage(b.EncodedImage)
            b.EncodedImage.Save("c:\Project\PrintBarPL\PrintBarPL\bin\Debug\Barcode" & dgwr.Cells.Item(15).Value & ".code128")
            b.EncodedImage.Dispose()
            GC.Collect()
            imgname = "c:\Project\PrintBarPL\PrintBarPL\bin\Debug\Barcode" & dgwr.Cells.Item(15).Value & ".code128"
            dgwr.Cells.Item(14).Value = New Bitmap(imgname)
        Next
    End Sub