Dim i As Integer
        For i = 0 To 3
            Dim item As New ListViewItem
            piclist.Images.Add(getuserpic(Mainform.nickname_1.ToString, _
              Mainform.mainurl))
            item.ImageIndex = i
            item.Text = "tester " & i
            item.SubItems.Add("a")
            If i = 1 Then
                item.BackColor = Color.LightBlue
            ElseIf i = 2 Then
                item.BackColor = Color.LightPink
            End If
            userlist1.Items.Add(item)
 
        Next

Nur Wissen ist Macht.