Private Sub Load_Data()
        Dim dt As New DataTable
 
        dt.Columns.Add("Bildpfad")
        dt.Rows.Add("D:\_Bildgalerie\blume.jpg")
        dt.Rows.Add("D:\_Bildgalerie\blume2.jpeg")
        dt.Rows.Add("D:\_Bildgalerie\blume3.jpg")
        dt.Rows.Add("D:\_Bildgalerie\minion.png")
        DataGridView2.DataSource = dt
 
        Dim colImage As New DataGridViewImageColumn
        DataGridView2.Columns.Add(colImage)
 
        Dim intI, intC As Integer
        intC = dt.Rows.Count
        For intI = 0 To intC - 1
            Dim cellImage As New DataGridViewImageCell
            cellImage.Value = Drawing.Image.FromFile(dt.Rows(intI).Item( _
              0).ToString)
            cellImage.ImageLayout = DataGridViewImageCellLayout.Zoom
            DataGridView2.Rows(intI).Cells(1) = cellImage
        Next
    End Sub

 Private Sub btn_Browse_Image_Click(sender As Object, e As EventArgs) Handles _
   btn_Browse_Image.Click
        Dim ofd As New OpenFileDialog
        With ofd
            .Filter = "Choose Image(*.bmp)|*.bmp|jpe (*.jpe)|*.jpe|jpeg (" & _
              "*.jpeg)|*.jpeg|jpg (*.jpg)|*.jpg|jpeg2000 (" & _
              "*.jpeg2000)|*.jpeg2000|png (*.png)|*.png|gif (*.gif)|*.gif|Alle" & _
              "Dateien(*.*)|*.*"
            .FilterIndex = 8
            .FileName = ""
        End With
 
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            PictureBox1.Image = Image.FromFile(ofd.FileName)
        End If
 
        TextBox1.Text = ofd.FileName.ToString
    End Sub
 
    Private Sub btn_Add_To_DataGridView_Click(sender As Object, e As EventArgs) _
      Handles btn_Add_To_DataGridView.Click
        Dim ms As New MemoryStream
 
        Try
            PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)
            Dim img As Byte()
            img = ms.ToArray()
            DataGridView1.Rows.Add(TextBox1.Text, img)
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString())
        End Try
    End Sub