Чтобы перенести текст в элемент управления ListBox в VB.NET, вы можете использовать различные методы. Вот несколько методов с примерами кода:

Метод 1: свойство AutoSizeColumns
Вы можете установить для свойства AutoSizeColumns элемента управления ListBox значение True. Ширина столбцов будет автоматически изменена в соответствии с текстом.

ListBox1.AutoSizeColumns = True

Метод 2: пользовательское рисование
Вы можете обработать событие DrawItem ListBox и вручную нарисовать элементы с переносом слов. Вот пример:

Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As DrawItemEventArgs) Handles ListBox1.DrawItem
    If e.Index < 0 Then Return
    e.DrawBackground()
    e.DrawFocusRectangle()
    Dim itemText As String = ListBox1.Items(e.Index).ToString()
    Dim itemRect As Rectangle = e.Bounds
    ' Calculate the size of the text with word wrapping
    Dim textSize As Size = TextRenderer.MeasureText(itemText, ListBox1.Font, itemRect.Size, TextFormatFlags.WordBreak)
    ' Draw the text with word wrapping
    TextRenderer.DrawText(e.Graphics, itemText, ListBox1.Font, itemRect, ListBox1.ForeColor, TextFormatFlags.WordBreak)
End Sub

Метод 3: пользовательский элемент управления ListBox
Вы можете создать собственный элемент управления ListBox, который наследуется от класса ListBox, и реализовать собственную логику переноса текста. Вот пример:

Public Class WrapListBox
    Inherits ListBox
    Protected Overrides Sub OnDrawItem(ByVal e As DrawItemEventArgs)
        If e.Index < 0 Then Return
        e.DrawBackground()
        e.DrawFocusRectangle()
        Dim itemText As String = Items(e.Index).ToString()
        Dim itemRect As Rectangle = e.Bounds
        ' Calculate the size of the text with word wrapping
        Dim textSize As Size = TextRenderer.MeasureText(itemText, Font, itemRect.Size, TextFormatFlags.WordBreak)
        ' Draw the text with word wrapping
        TextRenderer.DrawText(e.Graphics, itemText, Font, itemRect, ForeColor, TextFormatFlags.WordBreak)
    End Sub
End Class

Чтобы использовать этот пользовательский элемент управления ListBox, вам необходимо заменить стандартный элемент управления ListBox элементом управления WrapListBox в вашей форме.