Visual Basic

Public Class MultiLineListview
    Inherits System.Windows.Forms.ListView
    Dim _Font As Font = MyBase.Font
    Sub New()
      Me.OwnerDraw = True
      Me.View = Windows.Forms.View.Details
      Me.FullRowSelect = True
      Me.HoverSelection = False
    End Sub

    Protected Overrides Sub OnDrawColumnHeader(ByVal e As System.Windows.Forms.DrawListViewColumnHeaderEventArgs)
      e.DrawDefault = True
      MyBase.OnDrawColumnHeader(e)
    End Sub
    Protected Overrides Sub OnDrawSubItem(ByVal e As System.Windows.Forms.DrawListViewSubItemEventArgs)
      On Error Resume Next

      If e.ItemIndex > -1 And e.ItemIndex < Me.Items.Count Then
        Dim sText As String = e.SubItem.Text
        Dim sLines() As String = Split(sText, vbCrLf)
        If InStr(1, e.ItemState.ToString.ToLower, "selected") > 0 Then
          e.Graphics.FillRectangle(SystemBrushes.Highlight, e.Bounds)
        Else
          e.Graphics.FillRectangle(SystemBrushes.Window, e.Bounds)
        End If
        e.Graphics.DrawRectangle(SystemPens.Control, e.Bounds)
        e.Graphics.DrawString(sText, Me.Font, SystemBrushes.WindowText, e.Bounds.Left, e.Bounds.Top)
      End If
      MyBase.OnDrawSubItem(e)
    End Sub


    Protected Overrides Sub OnCreateControl()
      On Error Resume Next
      Me.Items.Clear()
    End Sub
  End Class

Protected Overrides Sub OnMeasureItem(ByVal e As System.Windows.Forms.MeasureItemEventArgs)
      On Error Resume Next
      If e.Index > -1 And e.Index < Me.Items.Count Then
        Dim sSize As SizeF

        Dim sText As String = Me.Items(e.Index).ToString()
        'Dim sLines() As String = Split(sText, vbCrLf)

        sSize = e.Graphics.MeasureString(sText, Me.Font)
        e.ItemHeight = sSize.Height '* (sLines.GetUpperBound(0))
      End If
      MyBase.OnMeasureItem(e)
    End Sub