Sub cmdN_Click(sender As System.Object, e As System.EventArgs) Handles 
 
cmdN.Click
  Dim itm As ListViewItem = lvw.Items.Add(New ListViewItem(New String() _
   {Microsoft.VisualBasic.InputBox("Name"), _
    Microsoft.VisualBasic.InputBox("Adresse")}))
  itm.BackColor = Color.FromArgb(Microsoft.VisualBasic.QBColor(16 - itm.Index))
  itm.ForeColor = Color.FromArgb(Microsoft.VisualBasic.QBColor(itm.Index))
  If lvw.Items.Count = 16 Then cmdN.Enabled = False
End Sub

Private 
 
Class ExPic
  Inherits System.Windows.Forms.PictureBox
  Private p As Boolean, i As String
 
  Public Sub New()
  MyBase.New
  Me.Size = New Size(15, 15)
  End Sub
 
  Public Property Pressed As Boolean
    Get
      Return p
    End Get
    Set(v As Boolean)
      p = v
      Me.Refresh
    End Set
  End Property
 
  Public Property ImageURL As String
    Get
      Return i
    End Get
    Set(v As String)
      i = v
      Me.BackgroundImage = New Bitmap(Image.FromFile(v), Me.Size)
    End Set
  End Property
End Class

Private Sub pic_Paint(sender As Object, e As PaintEventArgs)
  If sender.Pressed And lvw.SelectedIndices(0) > 1 Then _
    e.Graphics.DrawRectangle(New 
 
Pen(lvw.SelectedItems(0).BackColor, 2), 1, 1, 13, 13)
  sender.Refresh
End Sub