Navegando en la web encontré este codigo y funciona!!
1-Agrega un PictureBox
Propiedades:
Name=Pic
Autoredraw=true
BorderStyle=none
Backcolor=&H80000009& ' ES EL COLOR BLANCO
Visible=false
2-Agrega un ListView
Propiedades:
View=lvwReport
Labeledit=lvwManual
Checkboxes=true
Fullrowselect=true
3-Agrega el siguiente codigo:
Código vb:
Ver originalPrivate Sub ListView_ItemCheck(ByVal Item As MSComctlLib.ListItem)
Dim i As Long
If ListView.ListItems.Count > 0 Then
pic.Width = ListView.Width
pic.Height = ListView.ListItems(1).Height * (ListView.ListItems.Count)
pic.ScaleHeight = ListView.ListItems.Count
pic.ScaleWidth = 1
pic.DrawWidth = 1
pic.Cls
For i = 1 To ListView.ListItems.Count
If ListView.ListItems(i).Checked = True Then
ListView.ListItems(i).Checked = True
pic.Line (0, i - 1)-(1, i), &H80FFFF, BF
Else
ListView.ListItems(i).Checked = False
pic.Line (0, i - 1)-(1, i), &HFFFFFF, BF
End If
Next i
ListView.Picture = pic.Image
Else
pic.Cls
ListView.Picture = pic.Image
End If
End Sub
Nos Cuentas!!!