Подогнать размер TextBox под размер текста

  Dim d As Integer
        Dim i1 As Integer = 0
        For i = 1 To DGVZadan.RowCount.ToString() - 1
            If dt.Rows(i1).Item(1) = "1" Then
                Dim NTXT As String = dt.Rows(i1).Item(0)
                Dim TextB As New TextBox With {.Top = d, .Left = 1, .Multiline = True, .Size = New Size(200, 90), .BackColor = Color.Red, .Text = NTXT, .BorderStyle = BorderStyle.None}
                d = d + 91
                Me.Controls.Add(TextB)
            End If
            i1 = i1 + 1
        Next
        Dim i2 As Integer = 0
        For i3 = 1 To DGVZadan.RowCount.ToString - 1
            If dt.Rows(i2).Item(1) = "2" Then
                Dim NTXT As String = dt.Rows(i2).Item(0)
                Dim TextB As New TextBox With {.Top = d, .Left = 1, .Multiline = True, .Size = New Size(200, 90), .BackColor = Color.Green, .Text = NTXT, .BorderStyle = BorderStyle.None}
                d = d + 91
                Me.Controls.Add(TextB)
            End If
            i2 = i2 + 1
        Next

    Private Sub TextBox1_TextChanged(sender As TextBox, e As EventArgs) Handles TextBox1.TextChanged
        ' определяем самую длинную строку
        If sender.Text <> "" Then
            Dim strLongest As String = ""       'хранит текст самой длинной строки
            For i As Integer = 0 To sender.Lines.Length - 1
                If Len(strLongest) < Len(sender.Lines(i)) Then
                    strLongest = sender.Lines(i)
                End If
            Next i
 
            ' устанавливаем ширину TextBox1 по длине самой длинной строки
            Using ee As Graphics = sender.CreateGraphics()
                TextBox1.Width = CInt(ee.MeasureString(strLongest, TextBox1.Font).Width)
            End Using
        End If
    End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
    Dim txt As String = "Перечисление коллекции не является процедурой, безопасной для использования в многопоточных программах. Даже если коллекция синхронизирована, другие потоки могут ее изменить, что приведет к тому, что перечислитель сгенерирует исключение."
    With TextBox3
        .WordWrap = True
        .MaximumSize = New Size(.Width, 600)
        .Text = txt
        Dim sz As Size = .GetPreferredSize(New Size(.Width, 0))
        .Size = sz
    End With
End Sub

With TextBox3
    …
End With
TextBox4.Location = New Point(TextBox3.Location.X, TextBox3.Location.Y + TextBox3.Bounds.Height + 5)
With TextBox4
…
End With