textBox自动调整宽度

Private Sub Text1_Change()
   Label1.AutoSize = True
   Label1 = Text1
   Text1.Width = Label1.Width
End Sub

网上的，写的很巧妙，这人真的太有才了