VB.NET中怎么实现下拉列表折行显示

Public Class myComboBox  Inherits System.Windows.Forms.ComboBox  #Region " Windows 窗体设计器生成的代码 "  …  #End Region  '下面代码用不同的颜色显示选项  Private Sub myComboBox_DrawItem(ByVal sender As Object, ByVal e As _ System.Windows.Forms.DrawItemEventArgs) Handles MyBase.DrawItem  If e.Index < 0 Then Exit Sub  Dim txtColor As SolidBrush  Dim bgColor As SolidBrush  Dim txtfnt As Font  txtColor = New SolidBrush(Color.Black)  If e.Index / 2 = CInt(e.Index / 2) Then  bgColor = New SolidBrush(Color.White)  Else  bgColor = New SolidBrush(Color.LightYellow)  End If  If e.State And DrawItemState.Selected Then  txtColor = New SolidBrush(Color.Blue)  End If  e.Graphics.FillRectangle(bgColor, e.Bounds)  e.Graphics.DrawRectangle(Pens.Black, e.Bounds)  Dim r As New RectangleF(e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height)  e.Graphics.DrawString(Items(e.Index).ToString, Me.Font, txtColor, r)  End Sub  '下面代码计算每行选项需要的尺寸  Private Sub myComboBox_MeasureItem(ByVal sender As Object, ByVal e As _ System.Windows.Forms.MeasureItemEventArgs) Handles MyBase.MeasureItem  Dim lsize As SizeF  lsize = e.Graphics.MeasureString(Items(e.Index).ToString, Me.Font, New SizeF(Me.Width, 200))  e.ItemHeight = lsize.Height  e.ItemWidth = lsize.Width  End Sub  End Class