Checkboxs dentro de un listview

[Esfinge02]

buenas, quiere saber si es posible poner checkbox, tengo 3 campos de true o false se pueden remplasar o poner imagenes en lugar de que diga true o false dejo el codigo para ver consejos.

Dim con = ("SELECT a.IdVentaProdc, b.producto, b.precio, count(*) as cantidad, v.fecha,a.producto as Productos,a.promocion as promociones,a.paquete as paquetes FROM detalle_venta as c ,cat_ventas AS a, cat_productos AS b,Ventas as v where a.idProdPaqProm = b.idproducto and c.idcatventa = a.idProdPaqProm and c.idventa = v.IdVenta and fecha between #" + ejemplo3 + "# and #" + ejemplo4 + "# and a.producto = true group by b.producto,a.IdVentaProdc,b.precio,v.fecha,a.produ cto,a.promocion,a.paquete order by fecha desc")
Dim eje As New OleDbDataAdapter(con, ConSQL)
Dim pp As New DataTable
eje.Fill(pp)
Dim item As New ListViewItem
Dim i As Integer = 0
While i < pp.Rows.Count
Lstreprte.Items.Add((i + 1).ToString)
Lstreprte.Items(i).SubItems.Add(Convert.ToString(p p.Rows(i)("producto")))
Lstreprte.Items(i).SubItems.Add(Convert.ToString(p p.Rows(i)("precio")))
Lstreprte.Items(i).SubItems.Add(Convert.ToString(p p.Rows(i)("cantidad")))
Lstreprte.Items(i).SubItems.Add(Convert.ToString(p p.Rows(i)("fecha")))
Lstreprte.Items(i).SubItems.Add(Convert.ToString(p p.Rows(i)("Productos")))
Lstreprte.Items(i).SubItems.Add(Convert.ToString(p p.Rows(i)("Promociones")))
Lstreprte.Items(i).SubItems.Add(Convert.ToString(p p.Rows(i)("Paquetes")))
i = i + 1
End While

los 3 últimos campos del list son los de true o false