Imports System.IO
Imports Microsoft.Win32
Imports System.Drawing.Drawing2D
Public Class Form1
    Private Sub ListView1_DrawItem1(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DrawListViewItemEventArgs) Handles ListView1.DrawItem
        e.DrawBackground()
        If Not (e.State And ListViewItemStates.Selected) = 0 Then
            e.Graphics.FillRectangle(Drawing.Brushes.AliceBlue, e.Bounds)
        Else
            e.Graphics.FillRectangle(Drawing.Brushes.Transparent, e.Bounds)
        End If
    End Sub
    Private Sub ListView1_DrawSubItem(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DrawListViewSubItemEventArgs) Handles _
      ListView1.DrawSubItem
        e.Graphics.DrawString(e.SubItem.Text, ListView1.Font, _
        Drawing.Brushes.Black, e.Bounds.X + 8, e.Bounds.Y)
    End Sub
    Private Sub CreateMyListView()
        ListView1.Bounds = New Rectangle(New Point(12, 49), New Size(616, 272))
        ListView1.View = View.Details
        ListView1.FullRowSelect = True
        ListView1.GridLines = True
        ListView1.OwnerDraw = True
        ListView1.HeaderStyle = ColumnHeaderStyle.None
        ListView1.Columns.Add("Item Column", 320, HorizontalAlignment.Left)
        ListView1.Columns.Add("Column 2", -2, HorizontalAlignment.Center)
        Me.Controls.Add(ListView1)
        Dim Optisch As New ListViewGroup("Optische Einstellungen", _
          HorizontalAlignment.Center)
        Optisch.Name = "Optik"
        ListView1.Groups.Add(Optisch)
        Dim lvi As ListViewItem = ListView1.Items.Add("Anzeige der" & _
          "Verknüpfungspfeile deaktivieren")
        lvi.SubItems.Add("Test")
        lvi.Group = Optisch
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        CreateMyListView()
    End Sub