Private Sub listView1_DrawItem(ByVal sender As Object, ByVal e As _
  DrawListViewItemEventArgs) Handles listView1.DrawItem
        If Not (e.State And ListViewItemStates.Selected) = 0 Then
            Dim brush As New LinearGradientBrush(e.Bounds, Color.OldLace, _
              Color.MistyRose, LinearGradientMode.Vertical)
            e.Graphics.FillRectangle(brush, e.Bounds)
        Else
            Try
                e.Graphics.FillRectangle(Brushes.Transparent, e.Bounds)
            Finally
            End Try
        End If
        If Not Me.listView1.View = View.Details Then
            e.DrawText()
        End If
 
        e.Graphics.DrawImage(Me.ImageList1.Images("orange mit hacken.bmp"), New _
          Point(e.Bounds.X, e.Bounds.Y + 2))
    End Sub

e.Graphics.DrawImage(Me.ImageList1.Images("orange mit hacken.bmp"), New Point( _
  e.Bounds.X, e.Bounds.Y + 2))