Dim lvw_GruppeSicherheit As New ListViewGroup("Sicherheits Einstellungen", _
  HorizontalAlignment.Center)
    Private WithEvents listView1 As New ListView()
    '---------Abbschnitt für das ändern der Hintergrundfarbe beim Selectieren 
    ' in einem Listview------------------
    Private Sub ListView1_DrawSubItem(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DrawListViewSubItemEventArgs) Handles _
      listView1.DrawSubItem
        e.DrawBackground()
        If (e.ItemState And ListViewItemStates.Selected) <> 0 Then
            e.Graphics.FillRectangle(Drawing.Brushes.SpringGreen, e.Bounds)
            e.Graphics.DrawString(e.Item.Text, Me.listView1.Font, _
              Drawing.Brushes.Black, e.Bounds.X, e.Bounds.Y)
        Else
            e.Graphics.DrawString(e.Item.Text, Me.listView1.Font, _
              Drawing.Brushes.Black, e.Bounds.X, e.Bounds.Y)
        End If
        If e.ColumnIndex = 0 Then
            e.Graphics.DrawImage(Me.ImageList1.Images(2), e.Bounds.X, _
              e.Bounds.Y, 16, 16)
        End If
 
    End Sub
    '--------------------------------ENDE--------------------------------------
    ' -----------------------------------
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        With Me.listView1
            .SmallImageList = ImageList1
            .BackColor = Color.White
            .ForeColor = Color.Black
            .View = View.Details
            .FullRowSelect = True
            .OwnerDraw = True
            .Location = New Point(12, 42)
            .Size = New System.Drawing.Size(537, 372)
            .Scrollable = True
            .BorderStyle = BorderStyle.Fixed3D
            .HeaderStyle = ColumnHeaderStyle.Nonclickable
            .MultiSelect = False
        End With
        With Me.listView1.Columns
            .Add("Ico", 17, HorizontalAlignment.Right)
            .Add("Name", 343, HorizontalAlignment.Right)
            .Add("First", 173, HorizontalAlignment.Left)
        End With
        lvw_GruppeSicherheit.Name = "Sicherheit"
        listView1.Groups.Add(lvw_GruppeSicherheit)
        Dim listViewItem1 As New ListViewItem(New String() _
            {"One", "20", "30", "-40"}, -1)
        Dim listViewItem2 As New ListViewItem(New String() _
            {"Two", "-250", "145", "37"}, -1)
        Me.listView1.Items.AddRange(New ListViewItem() _
            {listViewItem1, listViewItem2})
        With Me
            .Controls.Add(Me.listView1)
        End With
    End Sub