Dim MyGraphics As Graphics = Me.CreateGraphics
创新互联建站专注于清河网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供清河营销型网站建设，清河网站制作、清河网页设计、清河网站官网定制、微信小程序服务，打造清河网络公司原创品牌,更为您提供清河网站排名全网营销落地服务。
'定义使用的字体
Dim Myfont As New Font("宋体", 9)
'获取文本的大小。
Dim Mystring_Size As SizeF = MyGraphics.MeasureString("中", Myfont)
'显示宽和高
MsgBox(Mystring_Size1.Width "：" Mystring_Size1.Height)
以下代码添加到你需要触发的事件里：
1，把你的textbox的Multiline改成True（如果此处不修改你后面修改大小的时候只能修改width，而不能修改height），如果希望自动修改height，你的字体也要修改
2,添加这句代码(假设你要修改大小的textbox就是textbox1)：
TextBox1.Location = New System.Drawing.Point(5, 20) '5, 20是你定义的针对窗体左上角点的X和Y位置
textbox1.size= New System.Drawing.Size(500, 600)‘500, 600是你自己定义的宽（width）和高（height）
3，或者直接写成：
TextBox1.Multiline = True’允许修改多行文本框
TextBox1.Location = New Point(5, 20) '5, 20是你定义的针对窗体左上角点的水平X和垂直Y位置
TextBox1.Size = New System.Drawing.Size(500, 600)‘500, 600是你自己定义的宽（width）和高（height）
如果.net的标准文本框都不够长，那基本上不能用普通控件来解决了。因为标准文本框内容的长度只受限于 String 的长度，大约是2GB左右。如果它不行，那 RichTxetBox、Label 等都不行。
解决的方案：一个是读文件时就判断长度，超长的直接弹错即可。再一个是提示用户将截断。再就是自己写代码，只读取部分内容供用户查看和修改，当用户移动滚动条时再动态的读取相应部分。最后这个当然好，但难度也最大。
可能是你改了窗体或是文本框里字体的大小，这个会影响到文本框的大小。
将textbox 的Multiline属性改成True .这样 Textbox的size属性就可以赋值了。
不清楚的欢迎继续追问！
