خاصية AutoSize لحقل TextBox

الجواب كالتالي ( هـــــــــــــــــــذا الرابط )

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
		AutoSizeControl(sender, TextBox1.TextLength)
	End Sub

 Private Sub AutoSizeControl(ByVal control As Control, ByVal textPadding As Integer)
		' Create a Graphics object for the Control.
		Dim g As Graphics = control.CreateGraphics()

		' Get the Size needed to accommodate the formatted Text.
		Dim preferredSize As Size = g.MeasureString( _
		  control.Text, control.Font).ToSize()

		' Pad the text and resize the control.
		control.ClientSize = New Size( _
		  preferredSize.Width + textPadding * 1, _
		  preferredSize.Height + textPadding * 1)

		' Clean up the Graphics object.
		g.Dispose()
	End Sub

و لا تنسى تعمل توسيط للنص داخل الأداة