Private Sub listView1_DrawItem(ByVal sender As Object, ByVal e As _
  DrawListViewItemEventArgs) Handles ListView1.DrawItem
        Dim obj As Object = Me.ListView1.Items.Item(e.ItemIndex)
        Dim brush As System.Drawing.Brush
        'e.DrawBackground
        If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then _
          '// Selected?
            brush = System.Drawing.Brushes.LightGreen '// Selected- Farbe
        Else
            brush = System.Drawing.Brushes.White '// Standard-Farbe
        End If
        e.Graphics.FillRectangle(brush, e.Bounds)
        e.Graphics.DrawString(obj.ToString, Me.ListView1.Font, Brushes.Black, _
          e.Bounds.X, e.Bounds.Y)
       End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.ListView1.OwnerDraw = DrawMode.OwnerDrawVariable
        ListView1.Items.Add("DAS IST EIN TEST")
        ListView1.Items.Add("DAS IST EIN TEST")
    End Sub

DAS IST EIN TEST

ListViewitem: {Das ist ein Test}