Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   Dim oGdPictureImaging As New GdPicture.GdPictureImaging
   Dim ImageID As Integer
 
   oGdPictureImaging.SetLicenseNumber("XXX") 'Unlocking GdPicture.NET -> Replace XXX by a valid license KEY
   oGdPictureImaging.SetLicenseNumber1DBarcodeRecognition("XXX") 'Unlocking the optional GdPicture 1D Barcode Recognition Plugin -> Replace XXX by a valid license KEY
 
   ImageID = oGdPictureImaging.CreateGdPictureImageFromFile("") 'Prompt the user to select an image
 
   If ImageID <> 0 Then
       If oGdPictureImaging.Barcode1DReaderDoScan(ImageID) = GdPictureStatus.OK Then 'Start barcode scanning process
           Dim BarcodeCount As Integer = oGdPictureImaging.Barcode1DReaderGetBarcodeCount
 
           If BarcodeCount > 0 Then
               For i As Integer = 1 To BarcodeCount
                   MsgBox("Barcode No: " & Str(i))
                   MsgBox("Type: " & oGdPictureImaging.Barcode1DReaderGetBarcodeType(i).ToString)
                   MsgBox("Value: " & oGdPictureImaging.Barcode1DReaderGetBarcodeValue(i))
                   MsgBox("Angle: " & Str(oGdPictureImaging.Barcode1DReaderGetBarcodeSkewAngle(i)))
               Next
           Else
               MsgBox("No barcode detected !")
           End If
 
           oGdPictureImaging.Barcode1DReaderClear() 'Release detection info from memory
       End If
       oGdPictureImaging.ReleaseGdPictureImage(ImageID)
   End If
End Sub