textBox根据字体自动调整大小
用label控件Label1.AutoSize = True根据字体自动调整大小
将label大小属性赋值给textBox
Label1.AutoSize = True
Label1 = Text1
textBox.Width = Label1.Width
用label控件Label1.AutoSize = True根据字体自动调整大小
将label大小属性赋值给textBox
Label1.AutoSize = True
Label1 = Text1
textBox.Width = Label1.Width