Private Sub btn_Generieren_Click(sender As Object, e As EventArgs) Handles _
   Btn_Generate.Click
        If String.IsNullOrEmpty(txtqrcode.Text) Then Return
 
        Dim generate As New MessagingToolkit.Barcode.BarcodeEncoder
        generate.BackColor = Color.White
        generate.LabelFont = New Font("Arial", 7, FontStyle.Regular)
        generate.IncludeLabel = True
        generate.CustomLabel = txtqrcode.Text
 
        Try
            picqrcode.Image = New Bitmap(generate.Encode( _
              MessagingToolkit.Barcode.BarcodeFormat.QRCode, txtqrcode.Text))
            picqrcode.SizeMode = PictureBoxSizeMode.CenterImage
 
            'Now to Datatable or Datagridview
            If Me.PicturesBindingSource.Current Is Nothing Then _
              Me.PicturesBindingSource.AddNew()
            Dim rw = DirectCast(DirectCast(Me.PicturesBindingSource.Current, _
            DataRowView).Row, PicturesRow)
            rw.Picdate = Now.ToShortDateString         ' Pfad des Datamatrix in 
            ' Spalte schreiben
            rw.Picname = txtqrcode.Text                ' Datamatrixname in 
            ' Spalte schreiben
            rw.Picpath = String.Concat(datamatrixpath.ToString & "/" & _
              txtqrcode.Text & ".png")
 
            Me.PicturesBindingSource.EndEdit()
            'Save New datarow
            dtsSave()
            'Datagridview neu zeichnen
            DataGridView1.Refresh()
            'Datamatrix ablegen
            Save_data()
 
        Catch ex As Exception
            picqrcode.Image = Nothing
        End Try
    End Sub
 
    Private Sub Save_data()
        Try
            If Me.picqrcode.Image IsNot Nothing Then
 
                Me.picqrcode.Image.Save(IO.Path.Combine(datamatrixpath, _
                  txtqrcode.Text & ".png"))
 
            End If
            Label1.Text = "Data Speicherort:"
            txtqrcode.ReadOnly = True
            Btn_Generate.Enabled = False
            FillGridWithFolderPictures()
 
            PicturesBindingSource.MoveLast()
            Datagridview1_SelectRow()
 
            Status_fertig()
            PicturesBindingSource.MoveLast()
        Catch ex As Exception
        End Try
 
    End Sub

 picqrcode.Image = Resize_Image(New Bitmap(Image.FromFile( _
   datamatrix_TypRow.Picpath)))
                picqrcode.SizeMode = PictureBoxSizeMode.CenterImage

  Private Function Resize_Image(ByVal _obmp As Bitmap) As Bitmap
        Dim _nbmp As New Bitmap(100, 100)
        Dim _obmp_width As Single = _obmp.Width
        Dim _obmp_height As Single = _obmp.Height
        Dim _obmp_factor As Single = _obmp_width / _obmp_height
        Do While _obmp_width > 100
            _obmp_width -= _obmp_width / 100
            _obmp_height = _obmp_width / _obmp_factor
        Loop
        Do While _obmp_height > 100
            _obmp_width -= _obmp_width / 100
            _obmp_height = _obmp_width / _obmp_factor
        Loop
        Dim _xcenter As Integer = CInt((100 - _obmp_width) / 2)
        Dim _ycenter As Integer = CInt((100 - _obmp_height) / 2)
        Using g As Graphics = Graphics.FromImage(_nbmp)
            g.InterpolationMode = Drawing2D.InterpolationMode.Bilinear
            g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
            g.DrawImage(_obmp, _xcenter, _ycenter, _obmp_width, _obmp_height)
        End Using
        Return _nbmp
    End Function