Private Sub DataGridList_RowPrePaint(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.DataGridViewRowPrePaintEventArgs) Handles _
  DataGridList.RowPrePaint
 
        Dim bm As Bitmap = Nothing
        Dim Filename As String = ""
        Dim oStream As System.IO.FileStream
 
 
        oStream = New System.IO.FileStream(PicturePath + "\" + Filename, _
          IO.FileMode.Open)
        bm = New Bitmap(oStream)
        oStream.Close()
        oStream = Nothing
 
        bm_dest As New Bitmap(PicX, PicY)
        gr_dest As Graphics = Graphics.FromImage(bm_dest)
        gr_dest.InterpolationMode = Drawing2D.InterpolationMode.Low
        gr_dest.DrawImage(bm, 0, 0, bm_dest.Width + 1, bm_dest.Height + 1)
        gr_dest.Dispose()
        bm = bm_dest
 
        Me.DataGridList.Item("Thumb", e.RowIndex).Value = bm
        Me.DataGridList.Rows(e.RowIndex).Height = bm.Height 'PicY
        Me.DataGridList.Columns("Thumb").Width = ThumbGridWidth
 
end sub