Imports System
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Globalization
Imports System.Windows.Forms
Public Class Form1
    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
        If (e.ItemState And ListViewItemStates.Selected) <> 0 Then
            e.Graphics.FillRectangle(Drawing.Brushes.AntiqueWhite, e.Bounds)
            e.DrawText()
        Else
            e.DrawText()
        End If
    End Sub
 
    Private Sub ListView1_DrawColumnHeader(ByVal sender As System.Object, ByVal _
      e As System.Windows.Forms.DrawListViewColumnHeaderEventArgs) Handles _
      listView1.DrawColumnHeader
        e.DrawBackground()
        e.DrawText()
    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(739, 372)
            .Scrollable = True
            .BorderStyle = BorderStyle.Fixed3D
            .HeaderStyle = ColumnHeaderStyle.Nonclickable
            .MultiSelect = False
        End With
        With Me.listView1.Columns
            .Add("Funktion", 400, HorizontalAlignment.Left)
            .Add("Status der Funktion", 335, HorizontalAlignment.Left)
        End With
        fuellelistview()
        With Me
            .Controls.Add(Me.listView1)
        End With
    End Sub
 
    '------------------------Listview 
    ' Füllen------------------------------------------------------
 
    Sub fuellelistview()
        Dim listViewItem1 As New ListViewItem(New String() _
           {"Testeintrag", ""}, -1)
        Me.listView1.Items.AddRange(New ListViewItem() _
            {listViewItem1})
    End Sub
End Class