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.

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Nur Wissen ist Macht.

Nur Wissen ist Macht.

Nur Wissen ist Macht.