Imports System.Windows.Forms
Imports System.Drawing
 
Public Class ListBoxEx : Inherits ListBox
 
    Public Sub New()
        MyBase.New()
        DrawMode = Windows.Forms.DrawMode.OwnerDrawVariable
        AddHandler Application.Idle, AddressOf Application_Idle
    End Sub
 
    Private ReadOnly Property ItemTextFormat() As StringFormat
        Get
            Static sf As StringFormat
            If sf Is Nothing Then
                sf = New StringFormat(StringFormatFlags.LineLimit)
                sf.Trimming = StringTrimming.Character
            End If
            Return sf
        End Get
    End Property
 
    Protected Overrides Sub OnMeasureItem(ByVal e As System.Windows.Forms.MeasureItemEventArgs)
        If Items.Count < 1 Then Return
 
        Dim item = Items(e.Index)
        If item Is Nothing Then item = ""
        e.ItemHeight = CInt(e.Graphics.MeasureString(item.ToString, Font, ClientSize.Width, ItemTextFormat).Height)
    End Sub
 
    Protected Overrides Sub OnDrawItem(ByVal e As System.Windows.Forms.DrawItemEventArgs)
        If Items.Count < 1 Then Return
 
        e.DrawBackground()
        Using br As New SolidBrush(e.ForeColor)
            Dim item = Items(e.Index)
            If item IsNot Nothing Then
                e.Graphics.DrawString(item.ToString, Font, br, e.Bounds, ItemTextFormat)
            End If
        End Using
        e.DrawFocusRectangle()
 
    End Sub
 
    Protected Overrides Sub OnClientSizeChanged(ByVal e As System.EventArgs)
        MyBase.OnClientSizeChanged(e)
        remeasuresItems = True
    End Sub
 
    Private remeasuresItems As Boolean = False
 
    Private Sub Application_Idle(ByVal sender As Object, ByVal e As EventArgs)
        If Not remeasuresItems Then Return
        RemeasureItems()
        remeasuresItems = False
    End Sub
 
    Private Sub RemeasureItems()
        DrawMode = Windows.Forms.DrawMode.Normal
        DrawMode = Windows.Forms.DrawMode.OwnerDrawVariable
    End Sub
 
End Class
 

SW1wb3J0cyBTeXN0ZW0uV2luZG93cy5Gb3JtcwpJbXBvcnRzIFN5c3RlbS5EcmF3aW5nCgpQdWJsaWMgQ2xhc3MgTGlzdEJveEV4IDogSW5oZXJpdHMgTGlzdEJveAoKICAgIFB1YmxpYyBTdWIgTmV3KCkKICAgICAgICBNeUJhc2UuTmV3KCkKICAgICAgICBEcmF3TW9kZSA9IFdpbmRvd3MuRm9ybXMuRHJhd01vZGUuT3duZXJEcmF3VmFyaWFibGUKICAgICAgICBBZGRIYW5kbGVyIEFwcGxpY2F0aW9uLklkbGUsIEFkZHJlc3NPZiBBcHBsaWNhdGlvbl9JZGxlCiAgICBFbmQgU3ViCgogICAgUHJpdmF0ZSBSZWFkT25seSBQcm9wZXJ0eSBJdGVtVGV4dEZvcm1hdCgpIEFzIFN0cmluZ0Zvcm1hdAogICAgICAgIEdldAogICAgICAgICAgICBTdGF0aWMgc2YgQXMgU3RyaW5nRm9ybWF0CiAgICAgICAgICAgIElmIHNmIElzIE5vdGhpbmcgVGhlbgogICAgICAgICAgICAgICAgc2YgPSBOZXcgU3RyaW5nRm9ybWF0KFN0cmluZ0Zvcm1hdEZsYWdzLkxpbmVMaW1pdCkKICAgICAgICAgICAgICAgIHNmLlRyaW1taW5nID0gU3RyaW5nVHJpbW1pbmcuQ2hhcmFjdGVyCiAgICAgICAgICAgIEVuZCBJZgogICAgICAgICAgICBSZXR1cm4gc2YKICAgICAgICBFbmQgR2V0CiAgICBFbmQgUHJvcGVydHkKCiAgICBQcm90ZWN0ZWQgT3ZlcnJpZGVzIFN1YiBPbk1lYXN1cmVJdGVtKEJ5VmFsIGUgQXMgU3lzdGVtLldpbmRvd3MuRm9ybXMuTWVhc3VyZUl0ZW1FdmVudEFyZ3MpCiAgICAgICAgSWYgSXRlbXMuQ291bnQgPCAxIFRoZW4gUmV0dXJuCgogICAgICAgIERpbSBpdGVtID0gSXRlbXMoZS5JbmRleCkKICAgICAgICBJZiBpdGVtIElzIE5vdGhpbmcgVGhlbiBpdGVtID0gIiIKICAgICAgICBlLkl0ZW1IZWlnaHQgPSBDSW50KGUuR3JhcGhpY3MuTWVhc3VyZVN0cmluZyhpdGVtLlRvU3RyaW5nLCBGb250LCBDbGllbnRTaXplLldpZHRoLCBJdGVtVGV4dEZvcm1hdCkuSGVpZ2h0KQogICAgRW5kIFN1YgoKICAgIFByb3RlY3RlZCBPdmVycmlkZXMgU3ViIE9uRHJhd0l0ZW0oQnlWYWwgZSBBcyBTeXN0ZW0uV2luZG93cy5Gb3Jtcy5EcmF3SXRlbUV2ZW50QXJncykKICAgICAgICBJZiBJdGVtcy5Db3VudCA8IDEgVGhlbiBSZXR1cm4KCiAgICAgICAgZS5EcmF3QmFja2dyb3VuZCgpCiAgICAgICAgVXNpbmcgYnIgQXMgTmV3IFNvbGlkQnJ1c2goZS5Gb3JlQ29sb3IpCiAgICAgICAgICAgIERpbSBpdGVtID0gSXRlbXMoZS5JbmRleCkKICAgICAgICAgICAgSWYgaXRlbSBJc05vdCBOb3RoaW5nIFRoZW4KICAgICAgICAgICAgICAgIGUuR3JhcGhpY3MuRHJhd1N0cmluZyhpdGVtLlRvU3RyaW5nLCBGb250LCBiciwgZS5Cb3VuZHMsIEl0ZW1UZXh0Rm9ybWF0KQogICAgICAgICAgICBFbmQgSWYKICAgICAgICBFbmQgVXNpbmcKICAgICAgICBlLkRyYXdGb2N1c1JlY3RhbmdsZSgpCgogICAgRW5kIFN1YgoKICAgIFByb3RlY3RlZCBPdmVycmlkZXMgU3ViIE9uQ2xpZW50U2l6ZUNoYW5nZWQoQnlWYWwgZSBBcyBTeXN0ZW0uRXZlbnRBcmdzKQogICAgICAgIE15QmFzZS5PbkNsaWVudFNpemVDaGFuZ2VkKGUpCiAgICAgICAgcmVtZWFzdXJlc0l0ZW1zID0gVHJ1ZQogICAgRW5kIFN1YgoKICAgIFByaXZhdGUgcmVtZWFzdXJlc0l0ZW1zIEFzIEJvb2xlYW4gPSBGYWxzZQoKICAgIFByaXZhdGUgU3ViIEFwcGxpY2F0aW9uX0lkbGUoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBFdmVudEFyZ3MpCiAgICAgICAgSWYgTm90IHJlbWVhc3VyZXNJdGVtcyBUaGVuIFJldHVybgogICAgICAgIFJlbWVhc3VyZUl0ZW1zKCkKICAgICAgICByZW1lYXN1cmVzSXRlbXMgPSBGYWxzZQogICAgRW5kIFN1YgoKICAgIFByaXZhdGUgU3ViIFJlbWVhc3VyZUl0ZW1zKCkKICAgICAgICBEcmF3TW9kZSA9IFdpbmRvd3MuRm9ybXMuRHJhd01vZGUuTm9ybWFsCiAgICAgICAgRHJhd01vZGUgPSBXaW5kb3dzLkZvcm1zLkRyYXdNb2RlLk93bmVyRHJhd1ZhcmlhYmxlCiAgICBFbmQgU3ViCgpFbmQgQ2xhc3MK