Private Sub dgView_CellFormatting(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dgView.CellFormatting

If e.ColumnIndex = 3 Then
            Dim curRow As DataGridViewRow = dgView.Rows(e.RowIndex)
            If curRow.Cells.Item(3).Value = "0" Then
                e.Value = dgImages.Images(0)
            ElseIf curRow.Cells.Item(3).Value = "1" Then
                e.Value = dgImages.Images(1)
            End If
End If

End Sub