Public Class frmOwnerDraw
 
    'Eine Listview auf die Form ziehen ....
 
    Public Sub create()
 
        Dim cl As New List(Of System.Windows.Forms.ColumnHeader)
        cl.Add(New ColumnHeader("Name") With {.Text = "Name"})
        cl.Add(New ColumnHeader("Groesse"))
        cl.Add(New ColumnHeader("Blubb"))
        cl.Add(New ColumnHeader("Geschwindigkeit"))
        cl.Add(New ColumnHeader("AlreadyDownloaded") With {.Text = "Bar"})
 
        Me.ListView1.Columns.AddRange(cl.ToArray)
 
        Me.ListView1.FullRowSelect = True
        Me.ListView1.Name = "ListView1"
        Me.ListView1.OwnerDraw = True
        Me.ListView1.TabIndex = 2
        Me.ListView1.View = System.Windows.Forms.View.Details
 
        For i As Integer = 0 To 20
            Dim lvi As ListViewItem = Me.ListView1.Items.Add("IT1")
            lvi.SubItems.Add(CStr(100 + i))
            lvi.SubItems.Add("Blubb")
            lvi.SubItems.Add(CStr(50 + 5 * i) & " km/h")
            lvi.SubItems.Add(CStr((i + 1) * 4))
        Next i
    End Sub
 
 
    Private Sub listview1_DrawColumnHeader(sender As Object, _
    e As System.Windows.Forms.DrawListViewColumnHeaderEventArgs) _
    Handles ListView1.DrawColumnHeader
 
        e.DrawDefault = True
    End Sub
 
 
 
    Private Sub listview1_DrawSubItem(sender As Object, _
        e As System.Windows.Forms.DrawListViewSubItemEventArgs) _
        Handles ListView1.DrawSubItem
 
        If e.ColumnIndex = 4 Then
            Using bw As New SolidBrush(Color.Yellow), _
                bb As New SolidBrush(Color.Blue)
                e.Graphics.FillRectangle(bw, e.Bounds)
                With e.Bounds
                    e.Graphics.FillRectangle(bb, .X, .Y + 2, _
                    CInt(.Width * CInt(e.SubItem.Text) / 100), CInt(.Height * _
                    0.8))
                End With
            End Using
        Else
            e.DrawDefault = True
        End If
    End Sub
 
 
 
    Private Sub frmOwnerDraw_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        create()
 
    End Sub
End Class